zmzk 发表于 2023-8-11 21:32:07

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

(DEFUN C:ff ()   

    (AND (SETVAR "PEDITACCEPT" 1 )

    (setqSS (ENTSEL "\n点取对象: " ))

    (command "_.pedit" ) (command SS ) (command "j" ) (command (SSGET "x" ) ) (command "" ) (command "" ) )

(PRINC "\n线变多义线完成..." )

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

xyp1964 发表于 2023-8-11 22:48:45

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

zmzk 发表于 2023-8-12 08:08:46

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

包哥 发表于 2023-8-12 11:03:01

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


牛，短小精悍

wsj249201 发表于 2023-8-12 14:35:12

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


牛！！这个真的好用。

wsj249201 发表于 2023-8-12 14:38:21

本帖最后由 wsj249201 于 2023-8-12 15:08 编辑

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

哦哦，知道了

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

jkop 发表于 2023-8-14 19:12:47

路过～学习～

花开富贵 发表于 2023-8-16 22:55:32

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

zhangrunze 发表于 2024-4-18 13:56:17

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


学习了~非常实用的功能~
页: [1]
查看完整版本: 线变多义线，有以前的源码