[讨论]：我的程序错在哪里！

0451doctor

(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执行后却没有变！让高人指点！

lsjjm

试试这个:
(defun c:bb ()
(command "rectang" (list 0 0) '(30 30) )
(setq ss (entget (entlast))
ss (append ss (list '(370 . 60))))
(entmod ss)
)

lijiao

最初由 0451doctor 发布
[B](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) ... [/B]

ACAD中没有rectang这个内部命令，只有内部命令才能用COMMAND函数。

wkai

最初由 lijiao 发布
ACAD中没有rectang这个内部命令，只有内部命令才能用COMMAND函数。

(command "rectang" (list 0 0) '(30 30) )
可以执行呀！
没有问题~

lsjjm

关键的是 (cons '(370 . 60) ss) 不对.

0451doctor

2楼解决了我要解决的问题！
能说说为什么线可以用我的方法改，而画方框却不行！

aeo

pl线加在开头不认.
这只能问autodesk了

陌生人

最初由 lsjjm 发布
[B]关键的是 (cons '(370 . 60) ss) 不对. [/B]

说的对.

另外我想,rectang所以能运行,
我本以为在acad.pgp里面有简写命令,但是没找到.可能是cad在哪里写了个定义程序,将其作为rectangle执行

lsjjm

see 帮助文件:
RECTANG: Draws a rectangular polyline
Draw menu: Rectangle
Command line: rectang or rectangle