按条件数据替换或输入文本

q3_2006 · 发表于 2013-10-24 19:52:25

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

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

×

(defun c:tt ( / pt s1 s2 t1 t2 t3 t4 ts1 ts2 txt1 txt2)
(setq s1 (car (nentsel "\n请选择条件数据:"))
txt1 (entget s1)
ts1 (atof (cdr (assoc 1 txt1)))
)
(setq t1 t)
(if (and
(<= ts1 500)
(> ts1 0)
)
(while t1
(while (setq pt (getpoint))
(entmake (list '(0 . "TEXT") (cons 1 "9999") (cons 10 pt) (cons 40 300) (cons 62 235)))
)
(setq t2 t)
(while t2
(setq s2 (car (nentsel "\n请选取要修改的对象:"))
txt2 (entget s2)
ts2 (atof (cdr (assoc 1 txt2)))
)
(command "chprop" s2 "" "c" 235 "")
(entmod (subst
(cons 1 "9999")
(assoc 1 txt2)
txt2
)
)
)
)
)
(setq t1 nil
t2 nil
)
(setq t3 t)
(if (and
(<= ts1 1000)
(> ts1 500)
)
(while t3
(while (setq pt (getpoint))
(entmake (list '(0 . "TEXT") (cons 1 "5555") (cons 10 pt) (cons 40 300) (cons 62 235)))
)
(setq t4 t)
(while t4
(setq s2 (car (nentsel "\n请选取要修改的对象:"))
txt2 (entget s2)
ts2 (atof (cdr (assoc 1 txt2)))
)
(command "chprop" s2 "" "c" 235 "")
(entmod (subst
(cons 1 "55555")
(assoc 1 txt2)
txt2
)
)
)
)
)
(setq t3 nil
t4 nil
)
)

(defun c:tt ( / pt s1 s2 t1 t2 t3 t4 ts1 ts2 txt1 txt2) 
     (setq s1 (car (nentsel "\n请选择条件数据:")) 
     txt1 (entget s1) 
      ts1 (atof (cdr (assoc 1 txt1))) 
     ) 
     (setq t1  t) 
   (if (and 
      (<= ts1 500) 
      (> ts1 0) 
    ) 
        (while t1 
      (while (setq pt (getpoint)) 
        (entmake (list '(0 . "TEXT") (cons 1 "9999") (cons 10 pt) (cons 40 300) (cons 62 235))) 
    ) 
    (setq t2 t) 
    (while t2 
      (setq s2 (car (nentsel "\n请选取要修改的对象:")) 
      txt2 (entget s2) 
      ts2 (atof (cdr (assoc 1 txt2))) 
      ) 
      (command "chprop" s2 "" "c" 235 "") 
      (entmod (subst 
      (cons 1 "9999") 
      (assoc 1 txt2) 
      txt2 
    ) 
  ) 
    ) 
    ) 
  ) 
  (setq t1 nil 
      t2 nil 
      ) 
      (setq t3  t) 
  (if (and 
      (<= ts1 1000) 
      (> ts1 500) 
    ) 
    
    (while t3 
      (while (setq pt (getpoint)) 
        (entmake (list '(0 . "TEXT") (cons 1 "5555") (cons 10 pt) (cons 40 300) (cons 62 235))) 
    ) 
    (setq t4 t) 
    (while t4 
      (setq s2 (car (nentsel "\n请选取要修改的对象:")) 
      txt2 (entget s2) 
      ts2 (atof (cdr (assoc 1 txt2))) 
      ) 
      (command "chprop" s2 "" "c" 235 "") 
      (entmod (subst 
      (cons 1 "55555") 
      (assoc 1 txt2) 
      txt2 
    ) 
  ) 
    ) 
    ) 
  ) 
  (setq t3 nil 
      t4 nil 
      ) 
   )

这个Q群里别人向我求助的问题，我也不知道用在什么地方，只是按他的要求写的（说是高山流水还是什么工具箱里有的功能），新手，代码啰嗦，求简化代码同时简化操作。

st788796 · 发表于 2013-10-24 20:16:46

(defun c:tt (/ str p ss e1)
(if (setq str (getstring "\nInput New String: "))
(while (setq p (getpoint "\nPoint: "))
(or
(and
(setq ss (xdrx_pickset_getAtPoint
p
(XD::Doc:GetPickboxHeight)
9
'((0 . "TEXT"))
)
)
(= 1 (sslength ss))
(setq e1 (xdrx_getentdata 9))
(xdrx_modent 1 str)
)
(xdrx_text_make p str (getvar "textsize") 0.)
)
)
)
(princ)
)

q3_2006 · 发表于 2013-10-24 20:27:06

st788796 发表于 2013-10-24 20:16

这怎么一样呢，条件必须是和也提供的一样。。代码已经能满足他的要求，但感觉操作能简化。。。

st788796 · 发表于 2013-10-24 20:30:20

q3_2006 发表于 2013-10-24 20:27
这怎么一样呢，条件必须是和也提供的一样。。代码已经能满足他的要求，但感觉操作能简化。。。

就是把 Getstring 改为选择文字并提取 string ，赋属性可以用 xdrx_entity_setpropertiesfrom

q3_2006 · 发表于 2013-10-24 20:32:56

st788796 发表于 2013-10-24 20:30
就是把 Getstring 改为选择文字并提取 string ，赋属性可以用 xdrx_entity_setpropertiesfrom

我给求助的人留言了，让他来说想如何简化操作，我说不清楚，现在还没回复我。。。

st788796 · 发表于 2013-10-24 20:39:45

q3_2006 发表于 2013-10-24 20:27
这怎么一样呢，条件必须是和也提供的一样。。代码已经能满足他的要求，但感觉操作能简化。。。

是这样吧

(defun c:tt (/ str p ss e1 e txt)
(and (setq e (xdrx_entsel "\nSelect Text: " '((0 . "text"))))
(setq str (xdrx_getentdxf 1)
e (car e)
)
(while (setq p (getpoint "\nPoint: "))
(or
(and
(setq ss (xdrx_pickset_getAtPoint
p
(XD::Doc:GetPickboxHeight)
9
'((0 . "TEXT"))
)
)
(= 1 (sslength ss))
(setq e1 (xdrx_getentdata 9))
(xdrx_setpropertyvalue e1 "TextString" str)
(xdrx_entity_setpropertiesfrom e1 e)
)
(and (setq txt (xdrx_text_make p str (getvar "textsize") 0.))
(xdrx_entity_setpropertiesfrom txt e)
)
)
)
)
(princ)
)

xdrx_pickset_getAtPoint 函数写法就是在那个自由矩形里拷贝的

Lispboy · 发表于 2013-10-24 22:02:00

q3_2006 发表于 2013-10-24 20:32
我给求助的人留言了，让他来说想如何简化操作，我说不清楚，现在还没回复我。。。

还带传声的，你把链接给朋友，让他来看不就行了，不行的让他直接问，免得传话不全。

q3_2006 · 发表于 2013-10-25 06:49:59

Lispboy 发表于 2013-10-24 22:02
还带传声的，你把链接给朋友，让他来看不就行了，不行的让他直接问，免得传话不全。

当然是给的链接。。不知道为什么没露面？？

hui987 · 发表于 2013-10-25 09:38:08

q3_2006,的代码已经可以用，就是操作起来慢了一点，他是在输出的时候用空格来切换是用替换，还是用直接写入，现在就是能不能简化成输出的时候自己判断是用替换，还是用写入，（在没选中对像时就写入，有选中对象的时候就用替换）

st788796 · 发表于 2013-10-25 11:36:55

hui987 发表于 2013-10-25 09:38
q3_2006,的代码已经可以用，就是操作起来慢了一点，他是在输出的时候用空格来切换是用替换，还是用直接写入 ...

6楼程序就是点在空白处写字, 点到文字替换

点到空白处可以用 xdrx_entity_transformedcopy 替换

q3_2006 · 发表于 2013-10-25 12:31:01

st788796 发表于 2013-10-24 20:39
是这样吧

xdrx_pickset_getAtPoint 函数写法就是在那个自由矩形里拷贝的

就是这个意思。。呵呵！

st788796 · 发表于 2013-10-25 16:13:45

Alisp 不带过滤的是 Nentselp 函数

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

按条件数据替换或输入文本

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

点评

点评

点评

点评

点评

点评

点评