atjsking 发表于 2013-8-11 13:28:42

求指点，命令后显示的错误信息什么原因？

；修改圆的半径并移动该圆（或取消移动）
(DEFUN C:RG(/ ent-c pt1 old-r new-r oldr)
(prompt "\n<RG>修改圆半径")
(setvar "cmdecho" 0)                                       
(setvar "blipmode" 0)                                    
(setq ent-c (entget(car(entsel"\n请选择要修改的圆"))))
(setq pt1(cdr(assoc 10 ent-c)));获得圆心坐标
(setq old-r(assoc 40 ent-c));获得半径
(setq oldr (cdr old-r))
(print "半径为：")(print oldr)
(setq new-r (cons 40 (getdist pt1 "\n请指定半径")))
   (entmod   (subst new-r old-r ent-c))
;;;(setq entc   (subst new-r old-r ent-c))
;;;(entmod entc )
(command "move" (entlast ) ""pt1 (getdist pt1 "\n请指定位移点<空格取消>") "" )
(prompt "\n<RG>Made With Saviner")
(princ)
)

以下为CAD命令行的显示内容
命令:RG
<RG>修改圆半径
请选择要修改的圆
"半径为："
23.2781
请指定半径
请指定位移距离<取消>未知命令“RG”。按 F1 查看帮助。---------最后一行的显示为什么是未知命令？？？








lsjj 发表于 2013-8-11 14:29:40

有Move那行多一組""

atjsking 发表于 2013-8-11 14:34:43

lsjj 发表于 2013-8-11 14:29 static/image/common/back.gif
有Move那行多一組""

谢谢 ！

补充下
command "move" (entlast ) ""pt1 (getdist pt1 "\n请指定位移点<空格取消>") "" )
改为command "move" (entlast ) ""pt1    pause )

另外对同个圆第2次使用该命令时候捕捉的还是最开始的那个圆心，该怎么改？

spiderman 发表于 2013-8-11 15:11:12

出现未知命令，一般都是多写了一对双引号导致。

chenbh2 发表于 2015-9-13 19:44:58

spiderman 发表于 2013-8-11 15:11 static/image/common/back.gif
出现未知命令，一般都是多写了一对双引号导致。

我找不到原因！真是多谢！
页: [1]
查看完整版本: 求指点，命令后显示的错误信息什么原因？