删除/擦除多段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兼容性：

copy

(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的部分

发表回复

精选推荐