图形实体间的线垂直 [支持单线 ， 复线 ， 块 ]（源码+flash演示）

softbird

能否把垂直扩展到平行，使得程序的功能更强？

coco25825

不行啊，出错了 ，怎么回事？
运行出错了：
(defun c:a9( / s1 s2 s3 s4 td pt p13 p14 p10 p15 pt2 p)
(#begin) (setq s1 (entsel "1:") p 0)(redraw (car s1) 3)
(while p (setq s2 (entsel "\n2:"))(if (not s2)(setq p nil))
(command "_dimangular" (cadr s1) (cadr s2) (cadr s1))(setq s3 (entlast))
(if (= (dxf s3 0) "DIMENSION") (progn
  (setq pt (inters (setq p13 (dxf s3 13))(dxf s3 14)(setq p10 (dxf s3 10))(setq p15 (dxf s3 15)) nil))
(setq l1 (rm-lst (list p10 p15 p13 p14)) l2 (list p10 p15) l3 (list p13 p14))
(if (= (length l1) 3)(progn             
(setq p1  (lst-lst l1 l3))
(setq pt  (car (lst-lst l2 p1)) )
(setq p13 (car (lst-lst l1 l2)))
  ))
  (entdel s3)(grdraw pt p10 141)
  (entmake (list '(0 . "line")(cons 10 p10)(cons 11 p15)))(setq s4 (entlast))
  (setq pt2 (polar pt (angle (vlax-curve-getClosestPointTo s4 p13  t) p13) (distance pt p13)))
  (entdel s4)(grdraw pt2 pt 141)
  (command "rotate" (car s2) "" pt "r" pt p13 pt2)
  )))
  (redraw (car s1) 4)(#end)(princ ))
(defun dxf(ent i)(if (= (type ent) 'ename)(setq ent (entget ent)))(cdr (assoc i ent)))
(defun #begin()(setq td (vlax-get (vlax-get-acad-object) 'activedocument))(vla-startundomark td)
               (setvar "cmdecho" 0)(setq osm (getvar "osmode"))(setvar "osmode" 0)(princ))
(defun #end()(vla-endundomark td)(setvar "osmode" osm) (setvar "cmdecho" 1)(princ "\n   ")(princ))
(defun rm-lst (ptlst)
(setq ptlst-new '())  (while (setq pt1 (car ptlst))(setq ptlst-new (cons pt1 ptlst-new) ptlst (vl-remove pt1 ptlst)) )
(setq ptlst-new (reverse ptlst-new))   ptlst-new );remove double member in list
(defun LST-LST(lst1 lst2)  (vl-remove-if '(lambda(x)(member x lst2)) lst1))

安杰

这个程序很好。

softbird

为什么会提示下面这样的错误？
; 错误: 参数类型错误: 二维/三维点: nil  在选择两条直线的时候出现以上错误

xmchy

现在还可以下载,谢谢!

coco25825

缺程序吧？

coco25825

为什么我用不了，求块对起程序！！

xmchy

不行啊,结果是:
"
命令: a9
1:
2:出错:参数类型错误: 二维/三维点: nil

命令:  A9 1:
2:出错:参数类型错误: 二维/三维点: nil

命令:  A9 1:
2:
直线互相平行。
2:


命令:  A9 1:
2:出错:参数类型错误: 二维/三维点: nil
"

coco25825

是，有问题

kongel

我也是有问题啊
命令: A9 1:
2:出错:参数类型错误: 二维/三维点: nil

dandee

我用acad2009测试了一下,是存在问题
原因: 高版本_dimangular命令,内部被修改.已经无法用(entsel)模拟
    去选复线或块.
如果有哪位高手知道dimangular命令选取复线或块的原理.请告知.

sfjlx

下不了！气死我了。白浪费钱！

tanle2020

下了好几天都不能下载，到底是什么原因啊