请教 为什么程序不能运行
本帖最后由 xyz2009xyz 于 2010-11-29 22:29 编辑请教 为什么程序不能运行,没有错误,但是输入命令说不能识别
;******************************************************************************************
;;程序名称:自动让圆内单个文字移动到圆中心
; 执行命令:YJ
;窗口范围内有效
;******************************************************************************************
(defun YJ ( / ssdata ssy sst pc pw s1 r i)
(setvar "CMDECHO" 0)
(if
(setq ssy (ssget "X" '((0 . "CIRCLE"))))
(progn
(setq i 0)
(repeat (sslength ssy)
(setq ssn (ssname ssy i))
(setq ssdata (entget ssn))
(setq pc (cdr (assoc 10 ssdata)))
;取圆心坐标
(setq r (cdr (assoc 40 ssdata)))
;取圆半径
(setq p1 (polar (polar pc 0 r) (/ pi 2) r))
;圆外接矩形的右上顶点
(setq p2 (polar (polar pc pi r) (/ pi -2) r))
;圆外接矩形的左下顶点
(if (setq sst (ssget "W" p1 p2 '((0 . "*TEXT"))))
(if (= (sslength sst) 1)
(progn
(setq s1 (ssname sst 0))
(setq pw (xyp-get-MinMaxPoint s1 5))
(COMMAND "MOVE" s1 "" "NON" pw "NON" pc)
)
)
)
(setq i (1+ i))
)
)
)
(setvar "CMDECHO" 1)
(princ)
)
(defun YJ ( / ssdata ssy sst pc pw s1 r i)
→
(defun c:YJ ( / ssdata ssy sst pc pw s1 r i) 非常感谢,好初级的错误,呵呵,查了半天就是没看最前面几句!
页:
[1]