2013-09-21 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

CCarch · 发表于 2013-9-21 00:09:42

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

---]聆听□?(374082318)于2013-09-21 00-09-42：
签到

CCarch · 发表于 2013-9-21 00:10:13

神秘将军(414713061)于2013-09-21 00-10-13：
签到

清风明月10 · 发表于 2013-9-21 00:15:01

清风明月(897902105)于2013-09-21 00-15-01：
(defun C:TT (/ EN OBJ PT PP)
  (if (and (setq EN (entsel "\n选择多选线: "))
         (setq EN (car EN))
         (sssetfirst nil (ssadd EN))
         (setq OBJ (vlax-ename->vla-object EN))
         (or (= (vla-get-objectname OBJ) "AcDbPolyline")
            (and (princ "\n所选的对象不是多段线。") nil)
         )
   )
(while (setq PT (getpoint "\n指定新顶点: "))
   (setq PT (trans PT 1 0)
         PP (vlax-curve-getclosestpointto OBJ PT))
   (vlax-invoke
      OBJ
      'ADDVERTEX
      (1+ (fix (vlax-curve-getparamatpoint OBJ PP)))
      (list (car PT) (cadr PT))
   )
)
  )
  (sssetfirst)
  (princ)
)

清风明月10 · 发表于 2013-9-21 00:15:56

清风明月(897902105)于2013-09-21 00-15-56：
这是网上得到的多段线增加顶点的代码，我想改成增加的顶点总是紧接着多段线的最后一个点，不知道如何改法？

CCarch · 发表于 2013-9-21 00:15:57

四叶草(252418567)于2013-09-21 00-15-57：
这是什么程序？

清风明月10 · 发表于 2013-9-21 00:16:11

清风明月(897902105)于2013-09-21 00-16-11：
请高手指点！

CCarch · 发表于 2013-9-21 02:30:53

带你去看海(2355667)于2013-09-21 02-30-53：
签到

luozh7682 · 发表于 2013-9-21 07:38:26

筑路人(310178970)于2013-09-21 07-38-26：
签到

CCarch · 发表于 2013-9-21 08:15:21

->不舞<-(992048669)于2013-09-21 08-15-21：
签到

CCarch · 发表于 2013-9-21 08:17:15

〇。(871008605)于2013-09-21 08-17-15：
签到

malinwang · 发表于 2013-9-21 08:36:13

卍???????卍 (1471938488)于2013-09-21 08-36-13：
签到

tangjunasd58 · 发表于 2013-9-21 08:38:44

梦宇ぁ恋(281383277)于2013-09-21 08-38-44：
签到

malinwang · 发表于 2013-9-21 08:39:33

卍???????卍 (1471938488)于2013-09-21 08-39-33：
[face12.gif]

malinwang · 发表于 2013-9-21 08:40:03

卍???????卍 (1471938488)于2013-09-21 08-40-03：
[qqimg]{FB20BE2C-C406-EE8A-D3A7-FEA7AE09373D}.gif[/qqimg]

CCarch · 发表于 2013-9-21 08:44:11

长风（龙少）(8240891)于2013-09-21 08-44-11：
签到

账号		自动登录	找回密码
密码			立即注册