日志
Lisp|
- 分享 选层锁定(Lisp与VBA Script结合)
- ;;Author: eachy 2006.10.20 (defun c:lyrlk (/ *acad* doc) (setq *acad* (vlax-get-acad-object) doc (vla-get-activedocument *acad*) ) (vla-startundomark doc) (vl-catch-all-apply '(lambda (/ lyr e) (while (setq e (car (entsel "\nSelect Lock Layer: "))) ...
- 分享 选层锁定(Lisp与VBA Script结合)
- ;;Author: eachy 2006.10.20 (defun c:lyrlk (/ *acad* doc) (setq *acad* (vlax-get-acad-object) doc (vla-get-activedocument *acad*) ) (vla-startundomark doc) (vl-catch-all-apply '(lambda (/ lyr e) (while (setq e (car (entsel "\nSelect Lock Layer: "))) ...
- 分享 获取 Pline 子段信息
- (defun subSEG (ent pt / pam pam1 p1 p2 dis dis1 pv) (setq pt (vlax-curve-getclosestpointto ent pt) pam (fix (vlax-curve-getparamatpoint ent pt)) pam1 (1+ pam) dis (- (vlax-curve-getdistatparam ent pam1) (vlax-curve-getdistatparam ent pam) ...
