dorado6633 发表于 2009-10-11 23:07:00

[求助]线变复线(即多义线)的LSP文件

求助：线变复线(即多义线)的LSP文件.....

ZZXXQQ 发表于 2009-10-12 12:24:00

<p>(defun c:tt ()<br/>&nbsp;(setvar "CMDECHO" 0)<br/>&nbsp;(if (setq ss (ssget '((0 . "ARC,LINE"))))<br/>&nbsp; (command ".PEDIT" "M" ss "" "Y" "J" "0.5" "")<br/>&nbsp;)<br/>&nbsp;(setvar "CMDECHO" 1)<br/>&nbsp;(princ)<br/>)</p>

xiaobaixiaobu 发表于 2013-8-8 16:59:26

代码里面有错误，把“Y”去掉就可以了！
页: [1]
查看完整版本: [求助]线变复线(即多义线)的LSP文件