社区 › Auto Lisp › 删除/擦除多段I的部分

martinle 发表于 2022-7-5 20:25:42

你好Tharwat，不幸的是我不知道你如何附加文件。
马丁

Tharwat 发表于 2022-7-5 20:28:07

看看右边的论坛，一定有一个叫Go Advanced的按钮，点击这个按钮，你应该可以找到attach按钮和其他很多有趣的东西

martinle 发表于 2022-7-5 20:30:09

你好，塔瓦，这是最新的折线。图纸

Tharwat 发表于 2022-7-5 20:32:33

很遗憾，除了WCS之外，我无法使其工作，对不起

martinle 发表于 2022-7-5 20:38:16

你好Tharwat，
好啊非常感谢。
:(

Tharwat 发表于 2022-7-5 20:41:32

如果将图形传输到WCS，该程序应按预期工作，否则不会成功。

martinle 发表于 2022-7-5 20:44:12

好啊非常感谢。
 
马丁

Tharwat 发表于 2022-7-5 20:47:54

 
没问题。

Lee Mac 发表于 2022-7-5 20:50:31

以下修改应实现UCS兼容性：
(defun c:test ( / a e s x )
   ;;;    Tharwat 27.4.2015    ;;;
   (if
       (and
         (setq s (entsel "\nSelect polyline to trim segment: "))
         (setq e (car s)
               x (entget e)
         )
         (= "LWPOLYLINE" (cdr (assoc 0 x)))
       )
       (if (= 2 (cdr (assoc 90 x)))
         (entdel e)
         (progn
               (setq a (fix (vlax-curve-getparamatpoint e (vlax-curve-getclosestpointto e (trans (cadr s) 1 0)))))
               (command
                   "_.break" s "_f"
                   "_non" (trans (vlax-curve-getpointatparam e a) 0 1)
                   "_non" (trans (vlax-curve-getpointatparam e (1+ a)) 0 1)
               )
         )
       )
   )
   (princ)
)良好溶液Tharwat

martinle 发表于 2022-7-5 20:52:55

你好李麦克
 
谢谢：）

查看完整版本: 删除/擦除多段I的部分