2013-07-07 明经 AutoLISP 编程(102918348) 群聊记录：(defun c:cc ();列出多义线顶点 (setq nlist n

明经快报

[金光]金光 02:31:56

(defun c:cc ();列出多义线顶点
  (setq nlist nil)
  (setq obj (car (entsel " Select a olyline: ")))
  (foreach x (entget obj)
    (if (eq 10 (car x))(setq nlist (cons (cdr x) nlist)))
  )
  (reverse nlist)
(Princ nlist)
)

为什么列出的点数是两倍多一点

明经快报

[阿然][阿然] 04:01:09

(defun c:cc()(princ (mapcar 'cdr (vl-remove-if-not '(lambda(x) (= (car x) 10)) (entget (car(entsel "\nSelect a olyline:")))))))

明经快报

[金光]金光 04:16:34

如果想 自动获得某图层上的线呢

明经快报

[金光]金光 04:46:10

(vla-offset (vlax-ename->vla-object s_en) dist)

想得到这个生成的 是不是 (setq en (entlast))

明经快报

[金光]金光 05:55:29

(setq en (vla-offset (vlax-ename->vla-object s_en) dist))

这句有没错

明经快报

[金光]金光 09:20:25

怎么获得 vla-offset 生成图元

[金光]金光 09:26:31

[qqimg]201307/{25D0F5E2-2BCD-4BB5-F96A-0B4E694D3091}.gif[/qqimg]

[夏生生][x_s_s_1]生无可恋 09:31:50

vlax-variant-value

[夏生生][x_s_s_1]生无可恋 09:32:37

(vlax-safearray->list(vlax-variant-value(vla-offset (vlax-ename->vla-object(car (entsel)))1000)))

明经快报

[kwok][ww5w]行舟月下 10:04:03

[qqimg]201307/{3733F6C7-359F-FECD-44AE-6846E30ED0FA}.jpg[/qqimg]框选后请问怎么按x方向求各选集的最大范围，然后统一x方向移动3mm,谢谢

明经快报

[金光]金光 10:21:52

(setq rtn (VL-CATCH-ALL-APPLY 'vla-Offset  (list obj d)))

明经快报

[雨的节奏][雨的节奏] 11:17:56

vla-Offset 怎么用

[lisp-study]jun 11:18:28

(vla-offset obj dist)

[雨的节奏][雨的节奏] 11:19:02

是偏移吗？

[lisp-study]jun 11:19:13

en

[雨的节奏][雨的节奏] 11:20:18

为什么是往内偏移呢

[金光]金光 11:20:43

内外都可以的

[lisp-study]jun 11:20:45

不一定啊 看你dist的值

[金光]金光 11:20:50

-100 +100

[雨的节奏][雨的节奏] 11:21:00

dist分正负吗

[雨的节奏][雨的节奏] 11:21:41

果然

竟然还分正负

[kwok][ww5w]行舟月下 11:22:53

单偏要判断，应是线的走向吧，
直接用来双偏就可以直接输入正负值，

[金光]金光 11:22:54

这句有错吗

明经快报

[金光]金光 11:35:27

[qqimg]201307/{C0E7A7F8-DBF9-EC9E-235E-BE3D93915467}.jpg[/qqimg]