数据与文字查看都正确，却不显示

zdqwy19 · 发表于 2020-6-28 18:20:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 zdqwy19 于 2022-9-21 07:47 编辑

文字中有段代码，查看时都正确，却不能显示？无标.png

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:Drawing1.zip
下载次数:1 文件大小:27.55 KB
下载权限: 不限以上 [免费赚D豆]

(defun show-l (notifier-object reactor-object parameter-list / p str el)
  (setq p (nth 1 (reverse(vl-remove-if-not '(lambda(x)(= 10 (car x))) (entget(vlax-vla-object->ename notifier-object))))))
  (setq str (strcat "X=" (rtos (cadr p) 2 3) "\\PY=" (rtos (caddr p) 2 3)))
  (setq el (entget (handent (car (vlr-data reactor-object)))))
  (setq el (subst (vl-list* 304 str) (assoc 304 el) el))
  (entmod el);更新文本图元表
)
(defun c:rct-line(/ el rlt vrl v_l1)
  (setq el(car(entsel "\n111")))
  (setq rlt(list(vlax-ename->vla-object el)));将图元名转换为VLA对象
  ;创建对象反应器，回调事件是图元被修改，回调函数是show-l
  (setq v_l1(list(cdr (assoc 5 (entget el)))))
  (setq vrl(vlr-pers(vlr-object-reactor rlt v_l1 '((:vlr-modified . show-l)))))
  (princ)
  )
已成功

Lisphk · 发表于 2020-6-28 18:38:25

反应器里面不能执行 entmod

/db_自贡黄明儒_ · 发表于 2020-6-29 08:02:19

可能是这个(setq el(car(entsel "\n111")))，一般不交互

账号		自动登录	找回密码
密码			立即注册

[求助] 数据与文字查看都正确，却不显示

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。