您有否感觉到，本站专业软件的更新，越来越慢了。您在工作中，有否感觉到“要是有个***功能的软件就好了”?如果是这样，请支持我们，把您期望给排水软件实现的功能写下来，传到info@gpszx.net邮箱。我们的软件工作室，会择优精选，写出实用的给排水小工具软件，并提供给大家下载。给排水在线是我们的给排水在线，给排水软件，应是我们想要的给排水软件。期待您的邮件。
您有否感觉到，本站专业软件的更新，越来越慢了。
您在工作中，有否感觉到“要是有个***功能的软件就好了”?
如果是这样，请支持我们，把您期望给排水软件实现的功能写下来，传到info@gpszx.net邮箱。我们的软件工作室，会择优精选，写出实用的给排水小工具软件，并提供给大家下载。
给排水在线是我们的给排水在线，给排水软件，应是我们想要的给排水软件。
期待您的邮件。
12楼
我觉得要是有一个可以随时切换Crosshair的角度的工具旧好了~~~这样画系统图旧好了~~免得总要用alt+t+A
回复
13楼
1.能不能将某个文字或词句一次全替换?
cad自己带得命令：find
2.将分散的词句组合成一个整体.
做个简单的lisp就可以，留下第一个文字，删掉后面的，把后面文字的内容添加到第一个文字串里面就完成了
文字少的话，自己使用copy,paste就可以做到了
回复
14楼
1 批量Dim ali(标管长）
2 批量Dim DN
3 批量端交点布块
4 坡度-->求标高
5 纵断图
自己学lisp，都很容易做到,
大家自己动手吧，不要老是指望享受别人的成果
如果每个人都编一些，然后共享，那岂不是更好
回复
15楼
(defun c:cc (/ ent) ;多重复制
(setq ent (ssget))
(command "copy" ent "" "m" "")
(princ)
)
虽然只是少按一个 "M"，但是感觉很爽，西西~~~
有些小程序虽然有 BOUNS 之类的提供了，但是象这些小东东放在自己的 LISP 库里随身携带，使用方便，不是也很好，：）
回复
16楼
(defun c:xz (/ ent ms p1) ;;翻转插入的块
(while t
(setq ent (car (entsel "
*** 选择要翻转的块 ***")))
(setq ms (entget ent))
(if (= (cdr (assoc 0 ms)) "INSERT")
(progn
(setq p1 (cdr (assoc 10 ms)))
(command "rotate" ent "" p1 "180")
)
(prompt "
选择的不是块!
")
)
)
)
这几天用理正画室外雨水管，标坡度时有时候忘了把箭头转向，于是写了这个小程序，试一下，感觉很不错（偶是卖瓜长大的哦，兮兮兮~~~）
回复
17楼
如果大家都能把自己的东东拿出来共享，那遥远大哥、鸿业大哥、LiZheng大哥 都可以告老还乡了，兮兮兮~~~~（保重偶的PP）
回复
18楼
看我的标管长的程序，
是自己用在标室外总图雨污水管长的
(defun c:cd (/)
(setvar "cmdecho" 1)
(setq a1 (getpoint "第一点"))
(princ "
")
(setq a2 (getpoint "第二点"))
(princ "
")
(setq ang (* (/ (angle a1 a2) pi) 180))
(setq dist (rtos (/ (distance a1 a2) 1000) 2 1))
(setq dist1 (strcat "De200-" dist))
(setq a3 (getpoint "文字插入点"))
(command "text" a3 "1250" ang dist1)
)
回复
19楼
GOOD
回复
20楼
这是我很久以前编的程序
;;;该程序可改变字符串的大小写
;;;BY ZHU XIAO FENG
;;;1995.12.19
(defun c:dx ( / oldblp oldech olderr p dx L )
(setq oldblp (getvar "blipmode")
oldech (getvar "cmdecho")
olderr *error*
)
(setvar "blipmode" 0)
(setvar "cmdecho" 0)
(defun *error* (msg)
(princ "
")
(princ msg)
(setvar "blipmode" oldblp)
(setvar "cmdecho" oldech)
(setq *error* olderr)
(princ)
)
(prompt "
请选择要改变的字符串.")
(setq P (ssget))
(initget 1 "D X")
(setq dx (getkword"
改成大写?还是小写?"))
(setq L 0 m 0 n (sslength p))
(while ( < L n)
(setq q (ssname p l))
(if (= "TEXT" (cdr (assoc 0 (setq e (entget (ssname p l))))))
(progn
(if (= "X" dx)
(progn
(setq w1 (strcase (cdr (setq b (assoc 1 e))) T))
(setq e (subst (cons 1 w1) b e))
(entmod e)
(setq m (+ 1 m))
)
)
(if (= "D" dx)
(progn
(setq w1 (strcase (cdr (setq b (assoc 1 e)))))
(setq e (subst (cons 1 w1) b e))
(entmod e)
(setq m (+ 1 m))
)
)
)
)
(setq l (+ 1 l))
)
(if (= 0 m)
(progn
(princ "
没有任何被选中")
(princ)
)
)
(setvar "blipmode" oldblp)
(setvar "cmdecho" oldech)
(setq *error* olderr)
(princ)
)
(princ "
编辑程序, 版本 1995")
(princ "
c:daxiao 已加载; 以dx启动命令.")
(princ)
回复
21楼
把它加到软件里面去！
回复
