[LISP程序]：毋须EXplode,编辑属性块中属性的小工具

lsjjm · 发表于 2003-7-3 08:43:49

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

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

×

毋须EXplode,编辑属性块中属性的小工具. 此代码只是实现基本功能, 请大家试用!
(defun c:test ()
  (vl-load-com)
  (setq att (getstring "\nChange attribute [Angle/Color/Height/Layer/Position/Style/Value/Tagstring]: "))
  (setq obj (car (nentsel "\nSelect an Attribute: ")))
  (setq obj (vlax-ename->vla-object obj))
  (cond
((= (strcase att) "A")
   (setq ang (getstring t "\nNew Angle: "))
   (vlax-put-property obj 'rotation ang))
((= (strcase att) "C")
   (setq col (getstring "\nNew Color Number: "))
   (vlax-put-property obj 'color col))
((= (strcase att) "H")
   (setq ohei (vlax-get-property obj 'height))
   (setq hei (getdist (strcat "\nNew Height <" (rtos oh 2 2) ">:")))
   (if (= hei "")(setq hei ohei))
   (vlax-put-property obj 'height hei))
((= (strcase att) "L")
   (setq lay (getstring "\nNew Layer:"))
   (if (not (tblsearch "LAYER" lay))
      (alert (strcat "\nLayer " (strcase lay) " doesn't exist!"))
      (vlax-put-property obj 'layer lay)
   ))
((= (strcase att) "P")
   (setq pos (getpoint "\nNew Position:"))
   (vlax-put-property obj 'textalignmentpoint (vlax-3d-point pos)))
((= (strcase att) "S")
   (setq sty (getstring "\nNew Style: "))
   (if (not (tblsearch "STYLE" sty))
      (alert (strcat "\nThe style " (strcase sty) " doesn't exist!"))
      (vlax-put-property obj 'stylename sty)
   ))
((= (strcase att) "V")
   (setq val (getstring t "\nNew value: "))
   (vlax-put-property obj 'textstring val))
  );c
  (princ)
);defun

正航 · 发表于 2003-7-30 10:19:58

谢谢了，还可以用。

wxh5330 · 发表于 2004-12-12 16:51:17

用探索者中的“通用编辑”更好些！

zuicai · 发表于 2004-12-12 22:32:41

希望能加上对话框。

li_seagull · 发表于 2004-12-13 12:14:40

谢谢楼主，很好用！

zh_6531394 · 发表于 2004-12-16 15:42:14

4楼说得对,有对话框就好了,希望能加上对话框。

有点小烦 · 发表于 2006-8-19 11:51:05

我碰到一个块BURST命令炸不开,正不知道怎么会事呢，见附件！

llkill · 发表于 2007-12-5 21:47:36

什么　东东啊　

leeyuan · 发表于 2007-12-11 19:41:07

应补充对话框好点，同时，应提示旧属性是何值，以利于修改时对照

176489156 · 发表于 2007-12-12 13:21:48

不知道有什么用

ooohen · 发表于 2007-12-13 22:02:45

谢谢```

gwpgc · 发表于 2007-12-13 23:11:56

什么用 ?

zhaozwf · 发表于 2008-11-24 16:53:12

有些地方出错，希望楼主再调试一下

pgw-1 · 发表于 2008-11-29 16:22:30

学习下

qiuxiang129 · 发表于 2008-12-13 00:38:46

收下‘

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

[LISP程序]：毋须EXplode,编辑属性块中属性的小工具

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

相关帖子