我的口齿不清怎么了？
我想我可以做到这一点，但由于某种原因，我得到了这个错误。“错误：错误的参数类型：stringp（3.0”x“11.25）”
我试图用它们的宽度、厚度标记我的多段线，并在中间添加字母x在中间。
(defun c:pt (/ layerset hr raf1 raf2 ss en ed p10 p11 mpt d2d d1d d3d d4d lan tan fg hg)
(defun errorhandler (s)
(if (/= s "Function cancelled")
(princ (strcat "\nError: " s))
(princ "SW function cancelled!"))
(setvar "clayer" layerset)
(setvar "orthomode" orthoset)
(setvar "osmode" osset)
(setvar "cmddia" cmddiaset)
(setvar "attdia" attdiaset)
(setvar "regenmode" 1)
(setq *error* olderr)
(princ))
(setq layerset (getvar "clayer"))
;----------PICK WHICH LINES YOU WANT TO LABEL-------------
(setq hr (getstring "\nFlush/Drop Beam or Header?(f/h): "))
(if (= hr "f")
(progn
(command "_.layer" "s" "s-frm-beam" "off" "*" "n" "on" "s-anno-text" "s" "s-anno-text" "" "")))
(if (= hr "h")
(progn
(command "_.layer" "s" "s-frm-header" "off" "*" "n" "on" "s-anno-text" "s" "s-anno-text" "" "")))
(command "textsize" "6" "")
(command "_.style" "jaytxt" "romans" "0" "0.80" "" "" "" "")
(and (setq ss (ssget '((0 . "*polyline"))))
(while (setq en (ssname ss 0))
(setq ed (entget en))
(setq p10 (cdr (assoc 10 ed)))
(setq p9 (reverse ed))
(setq p11 (cdr (assoc 10 p9)))
(setq mpt (mapcar '(lambda (a b) (* (+ a b) 0.5)) p10 p11))
(setq ltype (cdr (cond ((assoc 6 ed)))))
(setq depth (cdr (cond ((assoc 39 ed)))))
(setq width (cdr (cond ((assoc 40 ed)))))
;(if (= width "1.75") (setq w1 1.75))
;(if (= width "3") (setq w1 2))
;(if (= depth "9.25") (setq d1 9.25))
;(if (= depth "11.25") (setq d1 12))
(setq label (list width"x"depth))
(defun radians->degrees (r)(cvunit r "radian" "degree"))
;-------TEXT JUSTIFICATION----------------------------------------
(setq lan (angle p10 p11))
(setq ad (radians->degrees lan))
(if (and (> ad 90.1) (<= ad 270.1))
(progn
(setq ptemp p10)
(setq p10 p11)
(setq p11 ptemp)
(setq lan (angle p10 p11))
(setq ad (radians->degrees lan))))
(setq dir (if (< (* pi 0.5) lan (* pi 1.5)) - +))
(setq r3(entmake (list (cons 0 "TEXT")
(cons 8 (getvar "CLAYER"))
(cons 7 (getvar "TEXTSTYLE"))
(cons 40 (getvar "TEXTSIZE"))
(cons 41 0.80)
(cons 72 4)
(setq fg(cons 10 (setq r1(polar mpt (dir lan (+ 1))
(getvar "TEXTSIZE")))))
(setq hg(cons 11 (setq r2(polar mpt (dir lan (+ 1))
(getvar "TEXTSIZE")))))
(setq gg(cons 50 lan))
(setq rg(cons 1 (strcat label))))))
(ssdel en ss)))
(command "_.layer" "on" "*" "" "")
(setvar "clayer" layerset)
(prin1))
考虑宽度和深度变量的数据类型，然后查看STRCAT参数。
提示-查看RTOS功能。 strcat函数不会将列表转换为字符串，而是连接两个或多个字符串。
您需要使用rtos函数将实数（数值）转换为字符串，然后在将字符串提供给DXF组码1之前，使用strcat连接生成的字符串。
此外，未定义变量orthoset、osset、cmddiaset和attdiaset，因此在计算时会导致错误处理程序遇到错误。尽管如此，错误处理程序永远不会计算，因为您没有重新定义*错误*符号。
还有，为什么在这里使用cond语句？
(setq ltype (cdr (cond ((assoc 6 ed)))))
(setq depth (cdr (cond ((assoc 39 ed)))))
(setq width (cdr (cond ((assoc 40 ed)))))
如果可以找到DXF组，则该值将由assoc函数返回，否则assoc函数将返回nil。cond的使用是完全冗余的。
页:
[1]