tangjunasd58 发表于 2013-6-11 17:45:57

我有一个源熔合ＬＩＳＰ

(defun c:reg(/ ap:undoctl ss1 ss ss2)
(command ".undo" "e")
(ap-push-undo nil)
(setq ss1(entlast))
(setq ss(ssget))
(if ss
    (progn
       (command ".region" ss "")
       (setq ss2(ap-after ss1))
       (if ss2
         (command ".union" ss2 ""))))
(ap-pop-undo))



只能生成面域，有没有大师能改成可以生成多线的功能

kwok 发表于 2013-6-11 19:58:06

本帖最后由 kwok 于 2013-6-11 19:59 编辑

看看是不是这效果.........(还有这贴发错地方了吧,这区可吧发源码哦)
(defun c:reg(/ ap:undoctl ss1 ss ss2)
   (command ".undo" "e")
   (ap-push-undo nil)
   (setq ss1(entlast))
   (setq ss(ssget))
   (if ss
   (progn
      (command ".region" ss "")
      (setq ss2(ap-after ss1))
      (if ss2
            (command ".union" ss2 ""))))
         (command "explode" (ssget "p") )
         (setq ssss (ssget "p"))
         (command "_pedit" "m" ssss "" "Y" "j" 10 "")
   (ap-pop-undo))
页: [1]
查看完整版本: 我有一个源熔合ＬＩＳＰ