本帖最后由 soly2006 于 2012-7-20 16:18 编辑
lohas1118 发表于 2012-7-20 15:56
多谢相助,差不多是这个样子。不过不需要外框。只要X就OK了。可以修改吗 - (defun c:mk()
- (setq pt3 (getcorner (setq pt1 (getpoint)) "选择另一点"))
- (setq pt2 (list (car pt3) (car (cdr pt1))))
- (setq pt4 (list (car pt1) (car (cdr pt3))))
- (setq pt5 (mapcar '(lambda (x y) (/ (+ x y) 2.0)) pt1 pt3));中点
- (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 5) (cons 62 1) (cons 8 "作废")
- (cons 10 pt1)
- (cons 10 pt3)
- (cons 10 pt5)
- (cons 10 pt4)
- (cons 10 pt2)
- ))
- )
|