明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2081|回复: 4

请帮忙合并这两个程序为一个

[复制链接]
发表于 2010-7-26 12:54 | 显示全部楼层 |阅读模式

;;;修改属性值
(defun C:SZ ()(setvar "pickbox" 21)(command "DDATTE" )(princ))

;;;修改文字

(defun C:SW ()(setvar "pickbox" 21)(command "DDEDIT" )(princ))

 

我只想达到这样的目的:

 

(setq a (entsel "\n请选择需要编辑的实体:"))

 

如果选择的对象为块,则(command "DDATTE" );

 

如果选择的对象为块,则(command "DDATTE" );

发表于 2010-7-26 14:03 | 显示全部楼层
  1. (defun c:tt ()
  2. (setq en (car(entsel "\n请选择需要编辑的实体:")))
  3. (setq entype (cdr (assoc 0 (entget en))))
  4. (cond
  5. ((or(= entype "TEXT")(= entype "MTEXT"))
  6. (command "DDEDIT"  en "")
  7. ((= "INSERT" entype)
  8. (command "DDATTE" en "")
  9. )
  10. (t
  11. (alert "你选择的不是块和文本!")
  12. )
  13. )
  14. )
  15. )
 楼主| 发表于 2010-7-26 14:34 | 显示全部楼层

谢谢啦!

;;;修改属性值
(defun c:SZ (/ e1)
(setvar "cmdecho" 0)(setvar "pickbox" 21)
(setq e1 (entget (car (setq s1 (entsel "选择编辑对象:")))))
(if (= (cdr (assoc 0 e1)) "TEXT") (command "DDEDIT" s1))
(if (= (cdr (assoc 0 e1)) "MTEXT") (command "DDEDIT" s1))
(if (= (cdr (assoc 0 e1)) "INSERT") (command "DDATTE" s1))(princ))

我原以为是这样,不过你的还是很喜欢

 楼主| 发表于 2010-10-10 21:29 | 显示全部楼层

这个程序谁能帮忙加个尺寸类型的选择啊,就是说如果我选择的类型是“尺寸”:  '((0 . "DIMENSION"))  

那么我就执行以下这些代码:

(defun TDZ (/ e1 ds)
(SETQ DS (getstring (strcat "\n 输入替代值:" )))
(if (= DS nil ) (command "dim1" "new" (strcat DS "<>{}{}") e1 ""))
(if (/= DS nil ) (command "dim1" "new" (strcat DS "{}{}") e1 ""))
(princ))

路过高手,帮帮忙啊!

发表于 2011-10-22 19:51 | 显示全部楼层
淡定淡定淡定淡定
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 16:43 , Processed in 0.168750 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表