求助：用lsp连续画垂直线段

461045462

恳求：用lsp连续画垂直线

求助：由于工作的需要绘制图形，像那种地面房屋的图，数量较多，有的不一定是矩形，而是由多点组成的图形，而且许多图形不是水平方向。
虽然可以采用坐标转换的形式，或者用正交作图，再旋转，或用其它软件作图，不能连续作垂直画线，而且转换的工作量很大。
我的思路是：如果能先给定一条线，然后在线左右两边点击，即在一条线的任意一边点击一下，也就是给出哪个方向90度，输入距离，就能画出一个垂直直角线，可以连续画，不需要去旋转，那样就快多了。如果能标出每段的边长和每个图形的面积就更加理想。

想学习lsp修改一下，却无能为力，恳请大侠帮忙,谢谢！

 

 

已解决。

dunkel

没怎么看明白。这样的功能要求，可以到开发区的 lsp 板块去问问。

461045462

谢谢楼上的提醒

我已经转载到开发区的 lsp 板块提问

sy100

这样的功能，早就有了。

 

下面的程序由网络收集，版权归原作者。。。

 

(defun c:miaotu (/ p1 p2 lst setucs)
  (defun err-new (msg)

    (command "._redraw")
    (princ msg)
    (ended)
  )
;;;________________________________
  (defun ended (/ tmp)
    (setq *error* err-old)
    (if setucs
      (command "_.ucs" "p")
    )
  )
  (setq err-old *error*)
  (setq *error* err-new)
  (princ "\nWRITEN BY WKAI , XDCAD.NET , 20040611")
  (setvar "ORTHOMODE" 0)
  (setvar "cmdecho" 1)
 
  (if (setq p1 (getpoint "\n指定第一点:"))
    (if (setq p2 (getpoint p1 "\n指定下一点:"))     
      (progn
 (setq p1 (trans p1 1 0))
 (setq p2 (trans p2 1 0))
 (entmake (list (cons 0 "LINE") (cons 10 P1) (cons 11 P2)))
 (command "_.ucs" "ob" (entlast))
 (setq setucs t)
 (entdel (entlast))
 (setvar "ORTHOMODE" 1)
 (command "_.pline" (trans p1 0 1) (trans p2 0 1))
 (while (/= (getvar "cmdactive") 0)
   (command pause)
 )
 (command)
      )
    )
  )
  (ended)
)

461045462

有些资料在网络上早就有了的东西，可是就是不知道要怎样才能找到？在网络上查找“如何用lsp连续画垂直线”却找不到。

谢谢您的指点，要好好学习

感谢楼上