线变多义线，有以前的源码

zmzk

2. (DEFUN C:ff ()   
   
3. 
   
4.     (AND (SETVAR "PEDITACCEPT" 1 )
   
5. 
   
6.     (setq  SS (ENTSEL "\n点取对象: " ))
   
7. 
   
8.     (command "_.pedit" ) (command SS ) (command "j" ) (command (SSGET "x" ) ) (command "" ) (command "" ) )
   
9. 
   
10. (PRINC "\n线变多义线完成..." )
    
11. 
    
12. (PRINC )  )  

(DEFUN C:ff ()    <br /> <br />     (AND (SETVAR "PEDITACCEPT" 1 ) <br /> <br />     (setq  SS (ENTSEL "\n点取对象: " )) <br /> <br />     (command "_.pedit" ) (command SS ) (command "j" ) (command (SSGET "x" ) ) (command "" ) (command "" ) ) <br /> <br /> (PRINC "\n线变多义线完成..." ) <br /> <br /> (PRINC )  )  

请问前辈，我想 选中  一段线，自动选中其余的线，合并成 一个多义线，怎么运行不起来？

xyp1964

(defun c:tt ()
  (setvar "peditaccept" 1)
  (if (setq s1 (car (entsel "\n点取对象: ")))
    (command "_.pedit" s1 "j" (ssget "x") "" "")
  )
  (princ "\n线变多义线完成...")
  (princ)
)

zmzk

真是高手，我苦恼了好几天，你一下子就搞定了，谢谢前辈

包哥

xyp1964 发表于 2023-8-11 22:48
(defun c:tt ()
  (setvar "peditaccept" 1)
  (if (setq s1 (car (entsel "\n点取对象: ")))

牛，短小精悍

wsj249201

xyp1964 发表于 2023-8-11 22:48
(defun c:tt ()
  (setvar "peditaccept" 1)
  (if (setq s1 (car (entsel "\n点取对象: ")))

牛！！这个真的好用。

wsj249201

为哈命令行会出现：绾垮彉澶氫箟绾垮畬鎴?..这样的乱码呢？

哦哦，知道了

记事本另存--选择ANSI编码

jkop

路过～学习～

花开富贵

自动选成一条链是吗，那就向前搜索向后搜索再加上本身就可以啦

zhangrunze

xyp1964 发表于 2023-8-11 22:48
(defun c:tt ()
  (setvar "peditaccept" 1)
  (if (setq s1 (car (entsel "\n点取对象: ")))

学习了~非常实用的功能~