求助

gxz_1210

刚学编程，编了一个电气画点号的小程序，运行起来总出错，望高手指点，先谢谢了 (defun aa (num) (setq count 1
PT_START (GETPOINT "Select first point") ;;选择点
sum (GETINT "Select number")) ;;选择一个整数
(while (<= count num)
(setq PT_TMP1 (LIST (+(CAR PT_START) 30) (CADR PT_START))
PT_TMP2 (LIST (+(CAR PT_START) 30) (-(CADR PT_START) 6))
PT_TMP3 (LIST (CAR PT_START) (-(CADR PT_START) 6))
PT_TMP4 (LIST (+(CAR PT_START) 7) (CADR PT_START))
PT_TMP5 (LIST (+(CAR PT_START) 20) (-(CADR PT_START) 6))
PT_TMP6 (LIST (+(CAR PT_START) 12) (CADR PT_START))
PT_TMP7 (LIST (+(CAR PT_START) 30) (-(CADR PT_START) 6)))
(command "pline" PT_START PT_TMP1 PT_TMP2 PT_TMP3 "c") ;;画一个方框
(command "MTEXT" PT_TMP4 "J" "Mc" PT_TMP5 "plc1-" "") ;;在方框写 plc1-
(command "MTEXT" PT_TMP6 "J" "Mc" PT_TMP7 sum "") ;;在方框写数
(setq PT_START PT_TMP3 count (+ count 1) SUM (+ SUM 1)))
(princ))

BDYCAD

楼主你的程序可以运行, 没有发觉出错退出的现象, 不知你指的错误是哪方面呢?


(AA 20)

f5612140

1.(+(car pt_start)         (-(cadr...         -&gt; (+ car (pt_start)...(- (cadr...注意空格


2.不要用mtext,用text即可,注意text的输入顺序,最后一个""可省略

ZZXXQQ

MTEXT后面的参数不对。改成：


(command "MTEXT" PT_TMP4 PT_TMP5 "plc1-" "")       


就能画出来图。

gxz_1210

我说的出错是指运行结果有的时候正确，有的时候会出现图形和文字错乱的现象。

f5612140

1.程序能出现正确结果?



2.如果1的问题不存在,大半是补捉(锁点)造成的影响