0 Members and 1 Guest are viewing this topic.
(defun c:xdtb_plcpypart (/ wid e e1 p1 p2 p3) (xdrx-begin) (xdrx-sysvar-push '("osmode" 544)) (if (and (setq wid (getreal (xdrx-string-multilanguage "\n多段线宽度<退出>:" "\nPolyline Width<exit>:"))) (setq e (car (xdrx-entsel (xdrx-string-multilanguage "\n拾取多段线<退出>:" "\nPick Polyline<Exit>" ) '((0 . "*polyline")) ) ) ) (setq p1 (getpoint (xdrx-string-multilanguage "\n起始点<退出>:" "\nStart Point<Exit>:" ) ) ) (cond ((xdrx-curve-isclosed e) (setq p2 (getpoint (xdrx-string-multilanguage "\n中间点<退出>:" "\nThe Middle Point<Exit>:" ) ) ) ) (t t ) ) (setq p3 (getpoint (xdrx-string-multilanguage "\n结束点<退出>:" "\nThe End Point<Exit>:" ) ) ) ) (progn (and (setq e1 (xdrx-curve-setinterval e p1 p3 p2)) (xdrx-entity-make e1) (xdrx-setpropertyvalue (entlast) "constantwidth" wid "color" 1)) ) ) (xdrx-sysvar-pop) (xdrx-end) (princ))
Greate one, thank mate! How could I using it with current snap options?