XDRX API 2020-06-08的xdrx_text_make出问题了，写不出文字来

dyjwyqz5221

写文字以这种格式：(xdrx_text_make (getpoint) "asdasda" "yqz-style" 600.  0.0)
返回值为:nil cad图中也未绘制文字

newer

(xdrx_text_make (getpoint) "asdasda" "宋体" 600.  0.0)
测试，可以正常写字

dyjwyqz5221

对不起，经再次测试，发现是xd::text:make函数里面的水平对齐、竖向对齐出问题了，
即：这两句(xdrx_setpropertyvalue e "HorizontalMode" (car alignment1))
   (xdrx_setpropertyvalue e "VerticalMode" (cadr alignment1))

该函数早先是这样使用的：(xd::text:make (list (getpoint)) "asdasda" "yqz-style" 600. 0.7 0. "MC")

dyjwyqz5221

经过测试，将xd::text:make函数修改成这样就可以了。

[Actionscript3] 纯文本查看 复制代码

(defun XD::Text:Make (pj str styl txth wscl ang alignment / alignment1 e mode)
   	(setq  mode '(("A" 3 0)("F" 5 0)("L" 0 0)("M" 1 0)
                 		("C" 4 0)("R" 2 0)("TL" 0 3)("TC" 1 3)
                 		("TR" 2 3)("ML" 0 2)("MC" 1 2)("MR" 2 2)
                 		("BL" 0 1)("BC" 1 1)("BR" 2 1)
                	)
   	)
   	(if (not (setq alignment1 (assoc (setq alignment (strcase alignment)) mode)))
      		(setq alignment1 '(0 0))
      		(setq alignment1 (cdr alignment1))
   	)
   	(setq e (xdrx_text_make (car pj) str styl txth ang))
	(xdrx_setpropertyvalue e "HorizontalMode" (car alignment1))
   	(xdrx_setpropertyvalue e "VerticalMode" (cadr alignment1))	
   	(xdrx_setpropertyvalue e "WidthFactor" wscl)
   	(if (or (= alignment "A")(= alignment "F"))
      		(xdrx_setpropertyvalue e "AlignmentPoint" (cadr pj))  
      		(xdrx_setpropertyvalue e "AlignmentPoint" (car pj))
   	)
   	e  
)

dyjwyqz5221

将调整文字的宽高比放置到水平对齐、竖向对齐后面就可以了。

dyjwyqz5221

newer 发表于 2020-6-2 13:04
(xdrx_text_make (getpoint) "asdasda" "宋体" 600.  0.0)
测试，可以正常写字

刚才将晓东工具箱及api都卸载了，重新安装了一遍后，和你说的一样，没问题了。是我先安装的晓东工具箱，再安装api时，换了目录，所以就出现了上述情况了，并且晓东工具箱也不能用了。谢谢！！！

aisong220