问一个entmakex的问题

north911

变量str是对话框中获得的字符串 (entmakex (list '(0 . "TEXT")
(cons 10 wzdql)
'(1 . str)
(cons 40 0.3)
(cons 41 0.65)
)
这句函数怎么不对呢？ 请各位指点一下

meflying

'(1 . str)->(cons 1 str)

north911

(CONS 1 str) 这个我也试了，但还是不行：返回错误信息


错误: DXF 组不正确: (1)

wha123

(list '(0 . "TEXT")-->(list ' ((0 . "text"))

meflying

north911发表于2004-12-22 19:30:00(CONS 1 str) 这个我也试了，但还是不行：返回错误信息



错误: DXF 组不正确: (1)

那应该是你的str没有正确赋值，最好把你的整个程序都贴上来

wdb

(setq eng (list
(cons 0 "TEXT") ;(cons 5 173)
;(cons 100 AcDbEntity)
;(cons 67 0)
;(cons 410 Model)
;(cons 8 0)
;(cons 100 AcDbText)
(cons 10 (list 363.89 168.37 0.0))
(cons 40 3.0)
(cons 1 "3")
(cons 50 0.0)
;(cons 41 0.6)
;(cons 51 0.0)
;(cons 7 ROMANS)
;(cons 71 0)
(cons 72 1)
(cons 11 (list 100 0.0 0.0))
;(cons 210 0.0 0.0 1.0)
;(cons 100 AcDbText)
;(cons 73 0)
)
) (setq eng (subst (cons 10 wordPt) (assoc 10 eng) eng))
(setq eng (subst (cons 11 wordPt) (assoc 11 eng) eng))
(setq eng (subst (cons 40 wordHight) (assoc 40 eng) eng))
(setq eng (subst (cons 50 (* pi (/ wordAngle 180.0)))
(assoc 50 eng)
eng
)
)
(entmake eng) 将字，字点、字高、字角度换成你自己的值。

north911

这样都不行： (setq str "明经通道") (entmakex (list '(0 . "TEXT")
(cons 10 wzdql)
(cons 1 str)
(cons 40 0.3)
(cons 41 0.65)
)

meflying

wzdql变量没有赋值

qjcpj

我刚在晓东CAD发了一个帖子，现转到明经，发现有类似的帖子，我把在晓东CAD发的帖子贴在这。
请看我现写的一段关于“生成含两个点的"LWPOLYLINE"实体”小程序！
程序源码如下：
;;;生成含两个点的"LWPOLYLINE"实体
(defun c:produce_2pt_lwp (/ pt1 pt2 elist ent_name)
(defun pt_x (pt)
(setq x (car pt))
(eval 'x)
)
(defun pt_y (pt)
(setq y (cadr pt))
(eval 'y)
)
(setq pt1 (getpoint "\n起点："))
(setq pt2 (getpoint pt1 "\n结束点："))
(setq elist (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
'(90 . 2)
'(43 . 0.5)
(list 10 (pt_x pt1) (pt_y pt1))
(list 10 (pt_x pt2) (pt_y pt2))
)
)
(setq ent_name (entmakex elist))
(princ "\n两个顶点的\"LWPOLYLINE\"已entmakex成功！")(princ ent_name)(princ)
)

xyp1964

;;;是否是没有7码的原因？;;;2004测试通过

2. (defun c:test ()
3.    (command "_style" "汉字" "宋体" "0" "0.7" "0" "" "")
4.    (setq str "明经通道")
5.    (entmakex (list '(0 . "TEXT")             '(10 0 0 0)
6.        (cons 1 str)
7.        '(40 . 500)             '(41 . 0.7)
8.        '(7 . "汉字")
9.      )
10.    )
11.    (princ)
12. )

(defun c:test ()    (command "_style" "汉字" "宋体" "0" "0.7" "0" "" "")    (setq str "明经通道")    (entmakex (list '(0 . "TEXT")             '(10 0 0 0)        (cons 1 str)        '(40 . 500)             '(41 . 0.7)        '(7 . "汉字")      )    )    (princ) )