(完成)[编程申请]：求一lisp程序：点击一个数字，则往上将这个数字复制，复制间距为30

lengliqun · 发表于 2004-5-19 12:39:34

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

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

×

求一lisp程序：点击一个数字，则往上将这个数字复制，复制间距为300，请看图。

eachy · 发表于 2004-5-19 13:29:07

最初由 lengliqun 发布
[B]求一lisp程序：点击一个数字，则往上将这个数字复制，复制间距为300，请看图。 [/B]

[PHP]
(defun c:xdtb_txtcpy (/ ss e box mat)
  (if (setq ss (ssget '((0 . "text"))))
(progn
   (xdrx_begin)
   (xdrx_setsstodb ss 0)
   (while (setq e (xdrx_getentdata 0))
(setq box (textbox (entget e))
      ang (xdrx_getentdxf 50)
      p    (polar '(0. 0. 0.) (+ ang (/ pi 2)) (* 1.2 (cadadr box)))
      mat (xdrx_matrix_SetTranslation (xdrx_matrix_identity 3) p)
)
(xdrx_entity_transformedcopy e mat)
   )
   (xdrx_end)
)
  )
  (princ)
)[/PHP]

f5612140 · 发表于 2004-5-19 17:36:26

(defun c:test()
(setq ss (ssget '((0 . "TEXT"))))
(command "copy" "p" "" '(0 0) '(0 300))
)

lengliqun · 发表于 2004-5-20 12:48:55

都可用，谢谢！

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

(完成)[编程申请]：求一lisp程序：点击一个数字，则往上将这个数字复制，复制间距为30

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

相关帖子

Re: [编程申请]：求一lisp程序：点击一个数字，则往上将这个数字复制，复制间距为300，请看图。

浏览过的版块