查看单个帖子
旧 2009-04-26, 09:56 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 有没有人有线形的命令啊

有没有人有线形的命令啊
www.dimcax.com
有没有人有线形的命令啊
大家好啊 有没有人有线形的命令啊 比方说wa直线wq虚线we中心线的程序 谢谢啊

有没有人有线形的命令啊 :
大家好啊 有没有人有线形的命令啊 比方说wa直线wq虚线we中心线的程序 谢谢啊
楼主说的是不是修改线型,wa改成实线.....
如果是,那就是
(defun c:wa()
(command"change" (ssget) "" "p" "lt" "bylayer" ""))
(defun c:wq()
(command"change" (ssget) "" "p" "lt" "dashed" ""))
(defun c:we()
(command"change" (ssget) "" "p" "lt" "center" ""))
以上程序加载到cad中,输入命令:如wa或wq或we
选择要改的图元后回车即可
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)