[求助]：一段LSP,特定字符连接后多重拷贝

dhxf · 发表于 2005-5-10 23:49:39

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

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

×

;;;;;;;;;;;;;;;;;;
(defun c:h (/ ss1 obj1 obj2 obj3 obj4 ss3 ent pt)
(prompt "\n1st select: ")
(setq ss1 (ssget '((1 . "shb/*"))))
(setq obj1 (vlax-ename->vla-object (ssname ss1 0)))
(setq obj2 (vla-get-textstring obj1))

(prompt "\n2nd select: ")
(setq ss3 (ssget '((0 . "*text"))))
(setq obj3 (vlax-ename->vla-object (ssname ss3 0)))
(setq obj4 (vla-get-textstring obj3))

(setq ent (strcat obj2 obj4))
(setq pt (getpoint "\n 点位置"))
(command "text" pt "300" "" ent)

)
;;;;;;;;;;;
最后一句想变成多重拷贝效果,怎么处理
(command "copy" ent "" "m")

xyp1964 · 发表于 2005-5-10 23:59:35

试试：
[php]
(defun c:test (/ ss1 obj1 obj2 obj3 obj4 ss3 ent pt)
  (prompt "\n1st select: ")
  (setq ss1 (ssget '((1 . "shb/*"))))
  (setq obj1 (vlax-ename->vla-object (ssname ss1 0)))
  (setq obj2 (vla-get-textstring obj1))
  (prompt "\n2nd select: ")
  (setq ss3 (ssget '((0 . "*text"))))
  (setq obj3 (vlax-ename->vla-object (ssname ss3 0)))
  (setq obj4 (vla-get-textstring obj3))
  (setq ent (strcat obj2 obj4))
  (while
(setq pt (getpoint "\n 点位置<退出>"))
   (command "text" pt "300" "" ent)
  )
  (princ)
)[/php]

dhxf · 发表于 2005-5-11 08:54:54

一:OK解决问题
二:即时回帖感动
三:若(prompt "\nselect: ") , 一次选择同样效果,如何?

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

[求助] [求助]：一段LSP,特定字符连接后多重拷贝

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

相关帖子

浏览过的版块