[求助]：已经输入两点怎么连线？

温柔女神 · 发表于 2006-5-15 11:46:06

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

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

×

(setq a (getpoint "\n线段起点："))
(setq b (getpoint "\n线段终点："))
(command "line" a b) ;; 只想画两点的线段就自己结束，但此命令要右键或回车等才能结束，这样就会影响后面的程序。
.............
.............
;;;;中间程序执行完毕后，最后把此AB线段删掉（删线代码不知道怎写）
大家帮一下，在此射过

xxsheng · 发表于 2006-5-15 11:58:09

(vl-load-com)
  (setq acaddocument(vla-get-activedocument(vlax-get-acad-object)))
(setq a (getpoint "\n线段起点："))
(setq b (getpoint "\n线段终点："))
(if (and(= (getvar "tilemode") 0)(= (getvar "cvport") 1))
   (setq acadspace (vla-get-paperspace acaddocument))
   (setq acadspace (vla-get-modelspace acaddocument))
  )
(setq tmplineobj(vla-addline acadspace (vlax-3d-point a)(vlax-3d-point b)))

最后,,,
(vla-delete tmplineobj)

yshf · 发表于 2006-5-15 12:19:53

(setq a (getpoint "\n线段起点："))
(setq b (getpoint "\n线段终点："))
(command "line" a b "")
(setq ent1 (entlast))
.............
.............
(entdel ent1)

littlecong · 发表于 2006-5-15 18:07:03

其实只要我们在cad中需要一个空格确认的命令，在(command "" .....)的时候都需要最后一个参数是""

20020672 · 发表于 2006-5-16 09:16:32

(setq a (getpoint "\n线段起点："))
(setq b (getpoint "\n线段终点："))
(command "line" a b "")
这样就行了啊,加个""表示画线结束

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

[求助] [求助]：已经输入两点怎么连线？

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

相关帖子