0451doctor 发表于 2003-12-17 10:31:00

我的程序错在哪里！

(defun c:aa ()
    (command "line" (list 0 0) '(30 30) "")
    (setq ss (entget (entlast))
          ss (cons '(370 . 60) ss)
    )
    (entmod ss)
)
(defun c:bb ()
    (command "rectang" (list 0 0) '(30 30) )
    (setq ss (entget (entlast))
          ss (cons '(370 . 60) ss)
    )
    (entmod ss)
)

aa执行后线宽变了，而bb执行后却没有变！让高人指点！

meflying 发表于 2003-12-17 11:05:00

这样就可以
(defun c:bb ()
    (command "rectang" (list 0 0) '(30 30) )
    (setq ss (entget (entlast))
   ss (append ss (list '(370 . 60) ))
    )
    (entmod ss)
)

siyo 发表于 2003-12-17 11:06:00

我在用AutoCAD绘图的时候总是先把矩形编辑成多义线然后再改变线宽.

0451doctor 发表于 2003-12-17 14:31:00

meflying 谢谢你的回答！叫你声教师吧！
用append 形成的表就是把'(370 . 60)放入了最后！这样就可以了，其实也是这样的，那么我的作法为什么不行！
如果是直线为什么用（cons '(370 , 60) (entget (entlast))就可以！
其实用change命令也可以改，而且简单！
页: [1]
查看完整版本: 我的程序错在哪里！