日志
VL VLA VLX等函数（强）
热度 10 |
刚刚接触这些函数就别VL类函数迷住了，省去了不少的重复
期待更一步的前进...............
一个简单例子：
;改变对象所属层 作者：KAIXIN
(DEFUN C:KK()
(princ "\n请选择要改变层的对象:")
(setq ss (ssget))
(if (and ss (> (sslength ss) 0));判断最少要选到一个对象
(SETQ LA (vlax-get (vlax-ename->vla-object (car (entsel"\n请选择目标层对象:"))) 'Layer));直接取得层名
)
(command ".chprop" ss "" "layer" LA "")
(princ)
)
(DEFUN C:KK()
(princ "\n请选择要改变层的对象:")
(setq ss (ssget))
(if (and ss (> (sslength ss) 0));判断最少要选到一个对象
(SETQ LA (vlax-get (vlax-ename->vla-object (car (entsel"\n请选择目标层对象:"))) 'Layer));直接取得层名
)
(command ".chprop" ss "" "layer" LA "")
(princ)
)
已同步至 【KAIXIN】的微博
