[LISP程序]：标注文本的归位

mn1k · 发表于 2005-5-23 21:13:13

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

标注文本的归位
此程序在r14中可以用,但在2002中却没有作用,望高人指点!
(DEFUN c:dimhome (/ et e s f)
  (IF (SETQ et (ENTSEL "\n选择要文本归位的标注:"))
(PROGN (SETQ e (ENTGET (CAR et)))
         (SETQ s (CDR (SETQ f (ASSOC 70 e))))
         (IF (> s 128)
         (PROGN (SETQ s (- s 128)) (ENTMOD (SUBST (CONS 70 s) f e)))
         ) ;_ end of if
) ;_ end of progn
  ) ;_ end of if
  (PRINC)
) ;_ end of defun

aeo · 发表于 2005-5-23 21:50:21

(command "_dim1""_hometext")

mn1k · 发表于 2005-5-23 21:56:59

用(command)是个好办法

xyp1964 · 发表于 2005-5-23 22:13:03

[php](DEFUN c:test ()
  (setq ss (ssget '((0 . "DIMENSION")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(if (> (dxf 70 (entget s1)) 32)
   (command "dim" "home" (list s1 '(0 0 0)) "" "exit")
)
  )
  (princ)
)
(defun dxf (code elist) (cdr (assoc code elist)))[/php]

mn1k · 发表于 2005-5-31 20:39:09

不用Command,用lsp如何完成?

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：标注文本的归位

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块