请问.........
如何将样条曲线转变为多义线呀？ 安装express工具后，使用“flatten”命令，自己研究！！！(defun c:flatten ( / ss ans )<BR> (alert "\n转换后的线实体扩展属性将丢失,请慎用!!")<BR> (acet-error-init (list nil 1))<BR> (princ "\n选择需转换为轻多义线的样条曲线...")<BR> (if (not acet:flatn-hide)<BR> (setq acet:flatn-hide "Yes")<BR> );if<BR> <BR> (if (and (setq ss (ssget ":l" '((-4 . "<NOT") (0 . "VIEWPORT") (-4 . "NOT>"))));setq<BR> (setq ss (car (acet-ss-filter (list ss nil T))))<BR> );and<BR> (progn<BR> (initget "Yes No")<BR> (setq ans (getkword <BR> (acet-str-format "\n是否转换为不包含弧段的轻多义线? <%1>: "<BR> acet:flatn-hide<BR> )<BR> );getkword<BR> );setq<BR> (if (not ans)<BR> (setq ans acet:flatn-hide)<BR> (setq acet:flatn-hide ans) <BR> );if<BR> (if (equal ans "No")<BR> (acet-flatn ss nil)<BR> (acet-flatn ss T)<BR> );if<BR> );progn then<BR> );if<BR> (acet-error-restore)<BR>);defun c:flatten
<BR>(acet-autoload2 '("FLATTENSUP.LSP" (acet-flatn ss hide)))<BR>(princ)<BR>
页:
[1]