用于显示曲面el的LISP

anuj · 发表于 2022-7-6 12:30:05

你好

今天只有我注册了CT，尽管我以前是作为非会员访问CT的。
我使用的是LDD 2007，在创建曲面后，我想用箭头和旁边的一些文字来标记高程点；

从表面上看，我得到了高程为5215.60的点，但我想把它显示为15.60FL，其中FL代表流线，类似地，我会添加文本，如EX，BC，HP，LP。

目前我手动完成这项工作，这需要很多时间。

提前感谢

fixo · 发表于 2022-7-6 12:51:13

你好，anuj，
欢迎加入！

我对LDD和斑点一无所知，但
在常见情况下，这应该会有所帮助
我希望：

copy


;;lbn.lsp
(vl-load-com)
(defun C:LabelSpots  (/ ls numeric p p1 p2 suffix sz txt z)
 (setq        suffix (getstring T
                  "\nEnter the suffix (or press Enter to set default) <FL> : "))
 (if (eq "" suffix)
   (setq suffix "FL"))
 (while
   (setq p1 (getpoint "\nPick node point (or press Enter to Exit): "))
    (setq z           (caddr p1)
   sz           (rtos z 2 (getvar "lunits"))
   ls           (vl-string->list sz)
   numeric (vl-list->string
             (member (nth (- (vl-position 46 ls) 2) ls) ls))
   txt           (strcat numeric suffix)
   )
    (setq p2 (getpoint p1 "\nSpecify text insertion point: "))
    (command "_.qleader"
      p1
      p2
      ""
      (rtos (* (strlen txt) (getvar "textsize")) 2 0)
      txt
      ""
      "")
    )
 (princ)
 )
(defun C:LBS ()
 (C:LabelSpots)
 )
(princ "\n\t\t***\tStart command with LabelSpots or with LBS ...\t***")
(princ)

~'J'~

anuj · 发表于 2022-7-6 13:01:38

谢谢你的解决方案。我试过这个方法，当你点击具有Z高程的对象时效果很好，但它不会插值。例如：。
如果我有两条等高线，分别是Z标高=1000和1010
当点击轮廓时，它可以完美地完成工作。。。。但当我点击这两者之间的某个地方时，它显示0高程。我要找的是，根据点击的位置，它应该给出1001的值，并显示为01.00FL
我知道LDD中有选项，但它显示完整的z高程，但我只希望最后两位数字达到2位小数，就像它应该显示1010为10.00FL一样

fixo · 发表于 2022-7-6 13:08:05

啊，对不起，我的错
我需要重写它
我明白了，你想找回最后一个
逗号前两位，后两位
后面的数字
再见

~'J'~

fixo · 发表于 2022-7-6 13:19:03

请尝试以下方法

copy


;;lbn.lsp
(vl-load-com)
(defun C:LabelSpots  (/ dz ls lu lup numeric osm p1 p2 suffix sz txt z)
 (setq lu (getvar "lunits"))
(setvar "lunits" 2)
(setq lup (getvar "luprec"))
(setvar "luprec" 4)
(setq dz  (getvar "dimzin")) 
(setvar "dimzin" 
(setq osm (getvar "osmode"))
(setvar "osmode" 1)
 (setq        suffix (getstring T
                  "\nEnter the suffix (or press Enter to set default) <FL> : "))
 (if (eq "" suffix)
   (setq suffix "FL"))
 (while
   (setq p1 (getpoint "\nPick node point (or press Enter to Exit): "))
    (setq z           (caddr p1)
   sz           (rtos z 2 3)
   ls           (reverse (cdr (reverse (vl-string->list sz))))
   numeric (vl-list->string
             (member (nth (- (vl-position 46 ls) 2) ls) ls))
   txt           (strcat numeric suffix)
   )
    (setq p2 (getpoint p1 "\nSpecify text insertion point: "))
    (command "_.qleader"
      p1
      p2
      ""
      (rtos (* (strlen txt) (getvar "textsize")) 2 0)
      txt
      "")
    )
(setvar "osmode" osm)
(setvar "lunits" lu)
(setvar "luprec" lup)
(setvar "dimzin" dz)
(princ)
 )
;;shortcut:
(defun C:LBS ()
 (C:LabelSpots)
 )
(princ "\n\t\t***\tStart command with LabelSpots or with LBS ...\t***")
(princ)

~'J'~

abidcdm · 发表于 2022-7-6 13:33:28

嗨，亲爱的，请帮我写一个lisp来画一个梁立面图。Exmaple：梁顶部钢筋附加钢筋长度为净跨的1/3，底部为净跨的1/4。当我单击梁的两个净跨度点时，我需要一个lisp。它将除以总长度的L/3和L/4。。。。非常感谢我学到了很多东西。。。。。

[编程交流] 用于显示曲面el的LISP

发表回复

精选推荐