[求助]帮忙改错。

xstlf

(defun c:CC (/ pt1 pt2 ss1 ss2 wall1 wall2 ang dist
pt3 pt4 pt5 pt6 lt3 lt4 lt5 lt6)
(CMDLA0)
(setq no1 (@User 1 "" "\n输入窗宽度：" no1))
(setvar "osmode" 34)
(setq pt1 (getpoint "\n输入第一条墙线的中点："))
(setvar "osmode" 160)
(setq pt2 (getpoint pt1 "\n输入第二条墙线的插入点："))
(setvar "osmode" 0)
(setq ss1 (ssget pt1)
ss2 (ssget pt2)
)
(setq wall1 (ssname ss1 0)
wall2 (ssname ss2 0)
)
(setq ang (angle pt1 pt2)
dist (distance pt1 pt2)
)
(setq pt3 (polar pt1 (+ ang (/ pi 2)) (/ no1 2))
pt4 (polar pt2 (+ ang (/ pi 2)) (/ no1 2))
pt5 (polar pt1 (- ang (/ pi 2)) (/ no1 2))
pt6 (polar pt2 (- ang (/ pi 2)) (/ no1 2))
)
(setq lt3 (polar pt3 ang (- (/ dist 2) 30))
lt4 (polar pt4 (- 0 ang) (- (/ dist 2) 30))
lt5 (polar pt5 ang (- (/ dist 2) 30))
lt6 (polar pt6 (- 0 ang) (- (/ dist 2) 30))
)
(setvar "clayer" "墙体")
(command "_.line" p3 p4 "")
(setq ent1 (entlast))
(command "_.line" p5 p6 "")
(setq ent2 (entlast))
(command "_.break" wall1 "f" pt3 pt5)
(command "_.break" wall2 "f" pt4 pt6)
(setvar "clayer" "门窗")
(command "_.line" pt3 pt5 "" "" pt4 pt6 "" ""
lt3 lt5 "" "" lt4 lt6 "")
(princ)
(CMDLA1)
)
(defun CMDLA0 () 下面是通用子程序，略。。。 出错提示是，未知命令CC

meflying

这种错误都是由command引起的，记得你已经问过类似的问题了，应该要搞明白才行啊。。。


要注意command中在非命令状态的空回车是指上次执行的命令，而你上次执行的是cc（并不是刚才command中的命令，是你输入的命令），由于cc不是内部命令，，所以无法在程序中使用command执行，导致出错。。。


既然是写程序，就不要怕在写的时候麻烦，只要使用的时候不麻烦就可以了，，，所以(command "_.line" pt3 pt5 "" "" pt4 pt6 "" "" lt3 lt5 "" "" lt4 lt6 "")中的line就不要省略了。。。

wenwengg

CMDLA0
CMDLA1
通用子程序哪里有

ZZXXQQ

wenwengg发表于2009-10-13 10:15:00CMDLA0CMDLA1通用子程序哪里有

找xyp1964版主要；或去下载xyp1964的函数库。

zhongys

  (setvar "cmdecho" 0) (setvar "cmdecho" 1)猜的