[求助]：大家帮忙给看看~有什么问题

nishily

(defun c:ch-c()
          (setvar "cmdecho" 0)                                ;取消命令响应
        (setq en_name (car (entsel)))  
        (command "chprop" (en_name) "c" 3 "")                  
        (prin1)
)

Underway

(command "chprop" en_name "" "c" 3 "")

nishily

(setvar "cmdecho" 0)                                ;取消命令响应
       
        (setq en1 (entsel "\n 请选择直线："))          ;选取直线
        (setq sum 0)
        (setq num 0)
(while en1
       
        (setq en1_nam (car en1))
        (command "chprop" en1_name "" "c" 3 "")
        (setq en1_data (entget en1_nam))          ;获取联合属性列表                  
        (setq pt1 (cdr (assoc 10 en1_data)))   ;获取群码为10的直线起点坐标
        (setq pt2 (cdr (assoc 11 en1_data)))  ;获取群码为11的直线终点坐标
        (setq dist (distance pt1 pt2))


那这个程序为什么运行不了呢

Underway

(command "chprop" en1_name "" "c" 3 "")
==>
(command "chprop" en1_nam "" "c" 3 "")


setvar "cmdecho" 0) ;取消命令响应

;(setq en1 (entsel "\n 请选择直线：")) ;选取直线
(setq sum 0)   ; ???
(setq num 0)   ;???
(while (setq en1 (entsel "\n 请选择直线：")) ;选取直线
(setq en1_nam (car en1))
(command "chprop" en1_nam "" "c" 3 "")
(setq en1_data (entget en1_nam)) ;获取联合属性列表
(setq pt1 (cdr (assoc 10 en1_data))) ;获取群码为10的直线起点坐标
(setq pt2 (cdr (assoc 11 en1_data))) ;获取群码为11的直线终点坐标
(setq dist (distance pt1 pt2))
.
.
.

)

nishily

谢谢,我太粗心了~!:)

再麻烦你依次,看看这个程序
(defun c:TK()
          (setvar "cmdecho" 0)            
(initget "A0 A1 A2 A3 A4")      
(setq size (getkword "\n input paper size:A0 A1 A2 A3 A4<A3>"))
(if (= size nil) (setq size "A3"))
(setq size (strcase size))
(cond
((= size "A0") (SETQ p2 '(1189,841)))
((= size "A1") (SETQ p2  '(841,594)))
((= size "A2") (SETQ p2  '(594,420)))
((= size "A3") (SETQ p2  '(420,297)))
(t             (SETQ p2  '(420,297)))
)
(setq p1 '(0,0))
(command "rectang" p1 p2)

(command "zoom" "e")
(prin1)
)

nigma

你把两个点之间的逗号去掉就可以了,如下
....((= size "A1") (SETQ p2 '(841,594)))
==================>
....((= size "A1") (SETQ p2 '(841 594)))
.........
依此类推.

nishily

谢谢了:)