121madhu 发表于 2022-7-6 06:12:03

我需要反转级别Lisp plese

反转标高：-
（输入First IL–输入Second IL/输入距离*输入新IL的距离）±输入Invert Level First或Second。
第一个IL=657.922第二个IL=657.672距离=50
(657.922-657.672/50)*25
=(0.25/50)*25
=0.005*25 = 0.125
=0.125+657.547 = 657.672

Organic 发表于 2022-7-6 06:21:41

你可能需要提供更多的细节，你有什么很难遵循。

121madhu 发表于 2022-7-6 06:31:21


检查这个jpg，我只有一个级别，所以计算这个任何lisp，请建议我

BIGAL 发表于 2022-7-6 06:37:07

最好的方法是在准确的位置绘制人孔，然后输入坡度或上升/下降，这样可以得出正确的答案。
 
拾取第一个人孔并输入反转和坡度，拾取下一个人孔，反转标签将根据两点的某些规则重新角度显示。
 
这是你想要的吗？

121madhu 发表于 2022-7-6 06:43:04

我正在寻找lisp选择两个级别计算，然后我选择一个点，然后给出值
 
示例参见jpeg首先我知道两点，一个是657.547，另一个是657.922

121madhu 发表于 2022-7-6 06:48:40

对不起，我的英语很差

hmsilva 发表于 2022-7-6 06:54:19

您的dwg具有Z值？
是否要选择文字或点图元？
在您的图像中，点和文本是两个独立的实体还是一个块？
你打算总是直线计算还是曲线计算？
 
有太多的问题，最好的办法来管理获得帮助，是帮助我们，附上一个样本图纸与你有什么和你打算得到什么。。。
 
亨里克

121madhu 发表于 2022-7-6 07:01:41

仅X，Y
无块仅选择文本，然后选择下一个距离点，然后给出值
（对不起，我的英语很差对不起）

hmsilva 发表于 2022-7-6 07:09:53

 
一个快速而肮脏的，只在WCS中工作。。。试试看。。。
 

(defun c:test (/ PT1 PT1Z PT2 PT2Z PT3 PT3Z S1 S2 TX1 TX2)
(if (and (not (Prompt "\nSelect first reference TEXT: "))
   (setq s1 (ssget "+.:L:S" '((0 . "TEXT"))))
   (not (Prompt "\nSelect second reference TEXT: "))
   (setq s2 (ssget "+.:L:S" '((0 . "TEXT"))))
   (setq pt3 (getpoint "\nPick point to calculate elevation: "))
   );; and
   (progn
   (setq tx1(entget (ssname s1 0))
    pt1(cdr (assoc 11 tx1))
    pt1z (atof (cdr (assoc 1 tx1)))
    tx2(entget (ssname s2 0))
    pt2(cdr (assoc 11 tx2))
    pt2z (atof (cdr (assoc 1 tx2)))
    pt3z (+ (/ (* (distance pt1 pt3) (- pt2z pt1z)) (distance pt1 pt2)) pt1z)
   );; setq
   (entmake (list
'(0 . "TEXT")
'(100 . "AcDbEntity")
(assoc 8 tx1)
'(100 . "AcDbText")
'(10 0.0 0.0 0.0)
(assoc 40 tx1)
(cons 1 (rtos pt3z))
'(50 . 0.0)
'(41 . 1.0)
'(51 . 0.0)
(assoc 7 tx1)
'(71 . 0)
'(72 . 2)
(cons 11 pt3)
'(210 0.0 0.0 1.0)
'(73 . 1)
       );; list
   );; entmake
   );; progn
);; if
);; test

 
亨里克

121madhu 发表于 2022-7-6 07:12:34

谢谢你hmsilva
看这个lisp计算级别这没问题，但我需要相同的公式，但我选择了需要计算的点粘贴插入文本继续这个lisp只给出一个时间提示窗口
我想单击下一个距离点，然后继续单击，然后给出值单击，然后给出值
 
 
 
 
 
;;; Calculate grade of unknown point
;;;
(defun c:GRADE (/ #Dist #Elev #Grade #NewElev)
(cond
   ((and (setq #Dist (getdist "\nDistance: "))
         (setq #Elev (getreal "\nElevation of known point: "))
         (setq #Grade (getreal "\nPercent grade (eg: 0.25 for 0.25%): "))
    ) ;_ and
    (setq #NewElev (strcat "\nElevation: "
                           (rtos (+ (* #Dist (/ #Grade 100)) #Elev) 2 3)
                   ) ;_ strcat
    ) ;_ setq
    (princ #NewElev)
    (alert #NewElev)
   )
) ;_ cond
(princ)
) ;_ defun
页: [1]
查看完整版本: 我需要反转级别Lisp plese