如何让当前视口中心和四个角点显示特定字符（高飞鸟版主能有空指导更好）

夏生生

沉底了，捞一下，请各位多包涵，谢谢

guosheyang

这个问题对lisp似乎有相当难度    朋友 这段代码你研究下看能否改成适用你那种要求  我对反应器不熟悉  我把这个里面的alert改成运行放平文字的命令 结果造成死机  你研究下看能否改成
(vlr-remove-all)
(setq svr (vlr-sysvar-reactor
(list (cons "VIEWCTR" (getvar "viewctr"))
(cons "VIEWSIZE" (getvar "viewsize"))
)
'((:vlr-sysvarchanged . svcbexample)

)
)
)
(defun svcbexample (r l / data ovc ovs nvc nvs)
(setq data (vlr-data r))
(setq ovc (cdr (assoc "VIEWCTR" data))
ovs (cdr (assoc "VIEWSIZE" data))
nvc (getvar "viewctr")
nvs (getvar "viewsize")
)
(if (not(equal ovc nvc))
(progn
(alert (strcat "\nViewctr has changed. It was: "
(vl-princ-to-string ovc)
" It is now: "
(vl-princ-to-string nvc)
)
)
(setq
data (subst (cons "VIEWCTR" nvc) (assoc "VIEWCTR" data) data)
)
)
)
(if (not(equal ovs nvs))
(progn
(alert (strcat "\Viewsize has changed. It was "
(rtos ovs)
". It is now "
(rtos nvs)
)
)
(setq data
(subst (cons "VIEWSIZE" nvs ) (assoc "VIEWSIZE" data) data)
)
)
)
(vlr-data-set r data)
)

夏生生

guosheyang 发表于 2021-12-24 18:33
这个问题对lisp似乎有相当难度    朋友 这段代码你研究下看能否改成适用你那种要求  我对反应器不熟悉  我 ...

谢谢热心帮助，我也没改成功