求助：LSP三维坐标标注插件修复

山野

(defun c:PP (/  p1 p1a p1b p1c p2  p3 p2x p2y p2a1 p2a2 p2a3 p2a4 p2b0 p2b1 p2b2 p2b3 p2b4 p2b0m p2b1m p2b2m p2b3m iii iiitxt DDD)

(setq iii 1)

(setq P3 (getpoint "\nSelect point to write text:" ))
    (command "insert" "zb" p3 "" "" "")
    (setq p2x  (car p3))
    (setq p2y  (cadr p3))   
    (setq p2 (list p2x (- p2y 4500) ))
    (setvar "osmode" 1023)
(setq DDD (getstring "\n请输入前缀:" ))
    (while
    (setq P1 (getpoint "\nSelect point:" ))
    (setq p1a  (car p1))
    (setq p1b  (cadr p1))
    (setq p1c  (caddr p1))

    (setq p1a (rtos p1a 2 1))
    (setq p1b (rtos p1b 2 1))
    (setq p1c (rtos p1c 2 1))

    (setq p2x  (car p2))
    (setq p2y  (cadr p2))   
    (setq p2a1 (polar p2 0 6000))
    (setq p2a2 (polar p2 0 12000))
    (setq p2a3 (polar p2 0 18000))
    (setq p2a4 (polar p2 0 24000))
    (setq p2b0 (polar p2 (* pi 1.5)  2400))
    (setq p2b1 (polar p2b0 0 6000))
    (setq p2b2 (polar p2b0 0 12000))
    (setq p2b3 (polar p2b0 0 18000))
    (setq p2b4 (polar p2b0 0 24000))

    (setvar "osmode" 0)
    (command "layer" "s" "objects" "")   
    (command "line" p2 p2b0 p2b4 p2a4 "")
    (command "line" p2a1 p2b1 "")
    (command "line" p2a2 p2b2 "")
    (command "line" p2a3 p2b3 "")

    (setq p2b0m (list (+ p2x 3000) (- p2y 1200) ))
    (setq p2b1m (list (+ p2x 9000) (- p2y 1200) ))
    (setq p2b2m (list (+ p2x 15000) (- p2y 1200) ))
    (setq p2b3m (list (+ p2x 21000) (- p2y 1200) ))   

    (command "layer" "s" "0" "")
(setq txf_scl (getvar "DIMSCALE" ))
(command "style" "romas" "romans"  (* 3 txf_scl) 0.7 "" "" "" "")
(setq iiitxt (strcat DDD (itoa iii)))
    (command "text" "j" "m" p1 0 iiitxt)   
(command "style" "romas" "romans" 1050 0.7 "" "" "" "")
    (command "text" "j" "m" p2b0m 0 iiitxt)
    (command "text" "j" "m" p2b1m 0 p1a)
    (command "text" "j" "m" p2b2m 0 p1b)
    (command "text" "j" "m" p2b3m 0 p1c)
    (setq p2 p2b0)
    (setq iii (+ 1 iii))
    (setvar "osmode" 1023)
    )
(princ)
  )


目前根据需要，该插件存在如下问题：
1、图框在选取点后，实际生成位置不是点击点的位置，而是偏移很大距离。
2、坐标点生成的列表，第一个点的表行和图框之间会有一定的距离间隔。
3、无法设定标注的原点。

有没有高手能帮忙修复一下这个三维坐标标注插件？

czb203

修复一下这个三维坐标标注插件

MZ_li

很好

山野

czb203 发表于 2024-8-1 23:03
修复一下这个三维坐标标注插件

大师，没修复我说的三个问题呀！

czb203

可以了呀，按你说的

bai2000

能不能加个指定基准点（0.0.0）？即相对坐标

山野

czb203 发表于 2024-8-2 09:45
可以了呀，按你说的

确实可以用了。能不能指定基准点呢？

czb203

增加个指定基准点（0.0.0）

山野

我自己修改了一下，可以
1、设定标记坐标的原点。

2、在AutoCAD2023中试验，正常使用。

muai2010

不知道具体功能，暂时用不上