奥托李斯普——第三回

开始训练！

;(setq pt (getpoint "\n请输入一个点"))

;(setq num (getreal "\n请输入一个实数"))

;(getdist (getpoint))

note: 对于函数getdist，它不需要参数

;(print "123")

;(princ)

note: 不会再次出现“1234”

(setq name (car (entsel)))

;(setq ent (entget name))

;(cdr (assoc 11 ent))

;(cdr (assoc 8 ent))

;(entmod (subst (cons 8 "0") (assoc 8 ent) ent))

;(entmod (subst (cons 62 1) (assoc 62 ent) ent))

;(list 10 0 0 0)

;(entmod (subst (cons 10 (getpoint (cdr (assoc 10 ent)) "选择一个新的点")) (assoc 10 ent) ent))

;(entmod (subst (cons 1 "haha") (assoc 1 ent) ent))

(command "change" name "" "P" "LA" "0" "")

;(setq new_ent (list (cons 0 "LINE") (list 10 0 0) (list 11 1 1) (cons 8 "1") (cons 62 1) (cons 6 "DASHDOT") (cons 48 0.1)))

;(setq new_ent (list (cons 0 "CIRCLE") (list 10 0 0) (cons 40 3) (cons 8 "1") (cons 62 1)))

;(setq new_ent (list (cons 0 "ARC") (list 10 0 0) (cons 40 2) (cons 8 "1") (cons 62 1) (cons 50 6.05673) (cons 51 1.51476)))

;(setq new_ent '((0 . "LWPOLYLINE")  (100 . "AcDbEntity")

;(100 . "AcDbPolyline") (90 . 5)  (10 -11.782 5.62044)

;(10 -7.46009 3.58401) (10 -8.49491 1.12206) (10 -6.39484 -0.306484)

;(10 -7.27748 -2.9812)))

;(setq pt1 (getpoint))

;(setq pt2 (getpoint))

;(setq pt3 (getpoint))

;(setq pt4 (getpoint))

;(setq new_ent (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") (cons 100 "AcDbPolyline")

; '(90 . 4)  (cons 10 pt1) (cons 10 pt2) (cons 10 pt3) (cons 10 pt4))

;)

;(setq txt "123456")

;

;(setq new_ent '( (0 . "TEXT")  (5

;. "122") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (48 . 0.1)

;(100 . "AcDbText") (10 11.3312 -3.61294 0.0) (40 . 3.7186) (1 . "123456") (50 .

;0.0) (41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 0.0 0.0 0.0)

;(210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0)))

;

;(entmake new_ent)

;(setq pt1 (getpoint))

;(setq pt2 (getpoint))

;(command "line" pt1 pt2 "")

;(setq pt1 (getpoint "\npt1"))

;(setq r (getdist "\nR"))

;(command "circle" pt1 r)

;(setq name (car (entsel "\nSelect")))

;(setq names (ssget))

;;;(command "_.Erase" name "")

(setq pt1 (getpoint "\nPt1"))

(setq pt2 (getpoint pt1 "\nPt2"))

(command "-Mtext" pt1 pt2 "asdf" "")

;(command "line" pause pause pause "")