关于图元的简单问题？

linenyu

初学Autolisp，现在不知道怎么对CAD里的对象进行操作。比如，我要将一条直线长度变成原先的一半，中心不变，用lisp该怎么写。是不是象C＋＋对象，请哪位大哥大姐，完整写出来看看，让我学习学习

jordan

用length 。具体操作你平时怎么用CAD的。在程序中就怎么写。LISP就是模拟你重复经常的命令操作。。。。例如


（setq ss (entsel"请选择直线对象"))


(command "length" ss "" 5 "")假设你的直线长度是10


这就能达到目的。以后多多交流啊。明经是个好地方啊。。

wbrwbr2004

(defun c:chlen(/ en endata startpoint_x startpoint_y endpoint_x
endpoint_y midpoint_x midpoint_y midpoint)
(setvar "cmdecho" 0)
(setq en (car (entsel"\n选取一直线: ")))
(setq endata (entget en))
(setq startpoint_x (cadr (assoc 10 endata)))
(setq startpoint_y (caddr (assoc 10 endata)))
(setq endpoint_x (cadr (assoc 11 endata)))
(setq endpoint_y (caddr (assoc 11 endata)))
(setq midpoint_x (/ (+ startpoint_x endpoint_x) 2))
(setq midpoint_y (/ (+ startpoint_y endpoint_y) 2))
(setq midpoint (list midpoint_x midpoint_y 0))
(command "scale" en "" midpoint ".5")
(prin1)
)

linenyu

受教了


谢谢楼上的两位

onej

(setq startpoint_x (cadr (assoc 10 endata)))
(setq startpoint_y (caddr (assoc 10 endata)))
________________________ ((-1 . <图元名: 7ef51e80>) (0 . "LINE") (330 . <图元名: 7ef51cf8>) (5
. "88") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbLine") (10 335.152 655.123 0.0) (11 808.89 627.472 0.0) (210 0.0 0.0 1.0)) 其中， (10 335.152 655.123 0.0)，但不知道为何要用caddr取Z坐标，不是应用cadr取Y坐标和用carX坐标吗？

meflying

car取出来的是10,而不是X坐标...

龙龙仔

2. ;;能处理的物件(SPLINE,LINE,LWPOLYLINE,POLYLINE,ARC,ELLIPSE---ARC)
3. (defun C:TT (/ ENT VOBJ SP EP OBJNAME)
4.    (vl-load-com)
5.    (setq ENT (car (entsel "\nSelect line: ")))
6.    (setq VOBJ (vlax-ename->vla-object ENT))
7.    (setq OBJNAME (vla-get-objectname VOBJ))
8.    (setq SP (vlax-curve-getstartpoint VOBJ))
9.    (setq EP (vlax-curve-getendpoint VOBJ))
10.    (command "_.lengthen" "p" 75 (list ENT SP) "")
11.    (if (wcmatch OBJNAME "AcDb2dPolyline,AcDb3dPolyline")
12.        (setq ENT (entlast))
13.    )
14.    (command "_.lengthen"
15.        "p"
16.        (* 100 (/ 2.0 3))
17.        (list ENT EP)
18.        ""
19.    )
20.    (princ)
21. )

;;能处理的物件(SPLINE,LINE,LWPOLYLINE,POLYLINE,ARC,ELLIPSE---ARC) (defun C:TT (/ ENT VOBJ SP EP OBJNAME)    (vl-load-com)    (setq ENT (car (entsel "\nSelect line: ")))    (setq VOBJ (vlax-ename->vla-object ENT))    (setq OBJNAME (vla-get-objectname VOBJ))    (setq SP (vlax-curve-getstartpoint VOBJ))    (setq EP (vlax-curve-getendpoint VOBJ))    (command "_.lengthen" "p" 75 (list ENT SP) "")    (if (wcmatch OBJNAME "AcDb2dPolyline,AcDb3dPolyline")        (setq ENT (entlast))    )    (command "_.lengthen"        "p"        (* 100 (/ 2.0 3))        (list ENT EP)        ""    )    (princ) )