xyz2009xyz 发表于 2010-11-29 18:42:05

请教 为什么程序不能运行

本帖最后由 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)
)




xyp1964 发表于 2010-11-29 19:01:35

(defun YJ ( / ssdata ssy sst pc pw s1 r i)

(defun c:YJ ( / ssdata ssy sst pc pw s1 r i)

xyz2009xyz 发表于 2010-11-29 22:27:16

非常感谢,好初级的错误,呵呵,查了半天就是没看最前面几句!
页: [1]
查看完整版本: 请教 为什么程序不能运行