[LISP]关于DXF群码的问题

hkzwsy

((-1 . <图元名: 4007a7a0>) (0 . CIRCLE) (330 . <图元名: 4007a480>) (5 . AC) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbCircle) (10 554.703 66.6998 0.0) (40 . 31.2584) (210 0.0 0.0 1.0) (-3 (INCISE (1002 . {) (1011 585.816 63.6909 0.0) (1011 585.816 63.6909 0.0) (1070 . 2) (1002 . }))))


如何将“(-3 (INCISE (1002 . {) (1011 585.816 63.6909 0.0) (1011 585.816 63.6909 0.0) (1070 . 2) (1002 . })))”码写入DXF群码中？

CADghost

不是已经在了吗?


是要替换吗?

alin

1. ;Author: Bill Kramer
2. (DEFUN X_DATA_ADD (EN APID DLST / EL TMP1)
3.    (REGAPP APID)
4.    (SETQ EL (ENTGET EN)
5.                TMP1 (LIST -3 (CONS APID DLST)))
6.    (IF (< (XDSIZE TMP1) (XDROOM EN))
7.        (ENTMOD (APPEND EL (LIST TMP1))))
8. )

复制代码

Useage: (x_data_add (car (entsel)) "INCISE" '((1002 . "{") (1011 585.816 63.6909 0.0) (1011 585.816 63.6909 0.0) (1070 . 2) (1002 . "}")))

hkzwsy

我们自已绘图应该没有“(-3 (INCISE (1002 . {) (1011 585.816 63.6909 0.0) (1011 585.816 63.6909 0.0) (1070 . 2) (1002 . })))”码吧？

hkzwsy

(setq pt1(list 100 0 0)


如何将(1011 585.816 63.6909 0.0) 替换成(1011 100 0 0)        也就是pt1值 ?

meflying

(setq dxf (subst (cons 1011 pt1) (assoc 1011 dxf) dxf))


;dxf就是-3带的那一大串东西，，，


有点不明白，就是你想做什么？

alin

2. (defun C:test(/ el tmp)
3.    (setq el (entget (car (entsel)) '("INCISE")))
4.    (setq tmp (cdadr (assoc -3 el)))
5.    (setq tmp (subst '(1011 100 0 0) (assoc 1011 tmp) tmp))
6.    (setq tmp (cons -3 (list (cons "INCISE" tmp))))
7.    (entmod (setq el (subst tmp (assoc -3 el) el)))
8.    (princ)
9. )

(defun C:test(/ el tmp)    (setq el (entget (car (entsel)) '("INCISE")))    (setq tmp (cdadr (assoc -3 el)))    (setq tmp (subst '(1011 100 0 0) (assoc 1011 tmp) tmp))    (setq tmp (cons -3 (list (cons "INCISE" tmp))))    (entmod (setq el (subst tmp (assoc -3 el) el)))    (princ) )

hkzwsy

不好意思，还有一个问题;dxf就是-3带的那一大串东西“(-3 (INCISE (1002 . {) (1011 585.816 63.6909 0.0) (1011        120 63.6909 0.0) (1070 . 2) (1002 . })))”有两组1011码"(1011 585.816 63.6909 0.0) (1011        120 63.6909 0.0),如何同时替换两组？