我有一个源熔合ＬＩＳＰ

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

(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

本帖最后由 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))

账号		自动登录	找回密码
密码			注册