[讨论]：如何计算多边形代表点（拓扑点）

dubing · 发表于 2004-5-14 16:31:35

请教16楼这是哪里的电话？为什吗在这里公开电话呢？

推荐访问：http://cadx.go.nease.net

陌生人 · 发表于 2004-5-15 11:27:01

建议监禁16楼，发了好几个这样莫名其妙的帖子

zgq_gev · 发表于 2004-6-24 22:00:56

(defun c:rep()
(setq oce (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq txtss (ssget))
  (setq  slen (- (sslength txtss) 1))
  (setq  i 0)
  (setq qz (getstring "请输入字串:"))
(while  (<= i slen)
      (setq txtn (ssname txtss i))
      (setq txtdate (entget txtn))
      (setq txtdate (subst (cons 1 qz) (assoc '1 txtdate) txtdate))
      (entmod txtdate)
      (setq i (+ i 1)
      )
  )

(setvar "cmdecho" oce)
(princ)
)

maoding · 发表于 2004-6-26 11:13:26

太感谢了
我正需要

cqnj023 · 发表于 2004-6-27 09:32:39

18楼的程序大概跟楼主讨论的不是一个话题，批量文字替换，最好将第四行(setq txtss (ssget))改为(setq txtss (ssget '((0 . "MTEXT,TEXT"))))，免得出错。

wqwydyq · 发表于 2004-7-30 14:07:05

没用过map

yanhancai · 发表于 2004-8-4 18:55:01

真的不错

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