[LISP]关于DXF群码的问题

hkzwsy · 发表于 2004-8-11 08:49:00

((-1 . ) (0 . CIRCLE) (330 . ) (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 · 发表于 2004-8-11 08:53:00

不是已经在了吗?
是要替换吗?

alin · 发表于 2004-8-11 08:59:00

复制代码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 · 发表于 2004-8-11 09:03:00

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

hkzwsy · 发表于 2004-8-11 11:03:00

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

meflying · 发表于 2004-8-11 11:27:00

(setq dxf (subst (cons 1011 pt1) (assoc 1011 dxf) dxf))
;dxf就是-3带的那一大串东西，，，
有点不明白，就是你想做什么？

alin · 发表于 2004-8-11 11:35:00

copy


(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 · 发表于 2004-8-11 12:00:00

不好意思，还有一个问题;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),如何同时替换两组？

[LISP]关于DXF群码的问题

发表回复

精选推荐