求助，关于TRIM (command "trim" ent "" pt &quo

flyingfish · 发表于 2003-12-2 10:26:00

哪位高手帮帮我，在程序中我用到TRIM，如下
(command "trim" ent "" pt "")
PT是多义线上的端点坐标，因为多条线进行处理，不能直接选线，所以我选了多义线的端点，但这样就存在一个问题，当多义线很长，有拐弯的时候就截断不了
请大家帮我想想办法，谢谢

BDYCAD · 发表于 2003-12-2 10:32:00

應該沒有問題(我試過),
例如:
(setq sa (car (entsel)))
(setq a (cdr (assoc 10 (entget(car (entsel))))))
(command "trim" sa "" a "")

meflying · 发表于 2003-12-2 10:36:00

不明白你的意思，给个图示意一下把。
关于TRIM命令最好使用双元表，即(对象名 . 坐标点)，而不要仅使用对象或点，这样有很多不可确定性

flyingfish · 发表于 2003-12-2 13:10:00

如上图
谢谢大家的帮助，是的用(对象名 . 坐标点)就可以TRIM了。谢谢
但还有一个问题，如我传的图片，我想两边的都截成中间的红色的线的样子
我用TRIM 如下
  (command "trim" ent01 ent02 "" ent1 p1s ent1 p1n "" )
ent1 是要截的红色线  p1s  p1n 分别是该线的两个端点，这样执行有问题。
(command "trim" ent01 ent02 "" ent1 p1s  p1n "" )
  这样执行也有问题。
请帮忙，谢谢

flyingfish · 发表于 2003-12-2 13:28:00

不好意思，刚才上传图片没传上去，图片在这，请指教

flyingfish · 发表于 2003-12-2 13:32:00

如上图
谢谢大家的帮助，是的用(对象名 . 坐标点)就可以TRIM了。谢谢
但还有一个问题，如我传的图片，我想两边的都截成中间的红色的线的样子
我用TRIM 如下
  (command "trim" ent01 ent02 "" ent1 p1s ent1 p1n "" )
ent1 是要截的红色线  p1s  p1n 分别是该线的两个端点，这样执行有问题。
(command "trim" ent01 ent02 "" ent1 p1s  p1n "" )
  这样执行也有问题。
请帮忙，谢谢

frfwxqoq4m5.jpg

BDYCAD · 发表于 2003-12-2 13:41:00

把ent1E從(command "trim" ent01 ent02 "" ent1 p1s p1n "" )去掉
如
(command "trim" ent01 ent02 "" p1s p1n "" )

meflying · 发表于 2003-12-2 13:49:00

看下面的程序，最好自己能看懂。。。
剪切对象就是白线，被剪切对象就是红线，怎么选择没有关系，你可以一次选中所有的（某一种，红的和白的不能同时选，看提示）
一些图形的特殊情况未加判断，仅供学习

copy

(defun c:test( / ss ss2 i ent ents pts pte lst)
  (prompt "选择剪切对象...")
  (setq ss (ssget))
  (prompt "选择被剪切对象...")
  (setq ss2 (ssget))
  (setq i 0)
  (repeat (sslength ss2)
    (setq ent (ssname ss2 i))
    (setq ents (entget ent))
    (setq pts (cdr (assoc 10 ents)))
    (setq pte (cdr (assoc 10 (reverse ents))))
    (setq lst (append lst (list (cons ent (list pts)) (cons ent (list pte)))))
    (setq i (1+ i))
  )
  (command "_.trim" ss "")
  (apply 'command lst)
  (command "")
  (princ)
)

flyingfish · 发表于 2003-12-3 17:32:00

x3lktlkjryg.jpg

谢谢大家的帮助，非常感谢，不过现在又遇到如下情况，希望大家帮忙
如图，想把红色的线截为白色的线的样子。
我用如下程序，但有问题，达不到我想要的效果，请高手帮忙。谢谢了
(repeat (sslength ss2)
(setq ent (ssname ss2 i))
(setq ents (entget ent))
(setq pts (cdr (assoc 10 ents)))
(setq pte (cdr (assoc 10 (reverse ents))))
(setq lst (append lst (list (list ent pts) (list ent pte))))
(setq i (1+ i))
  )
  (command "_.trim" entup entdown "")
  (apply 'command lst)
  (command "")
  (princ)