绘制样条并求z

motee-z · 发表于 2022-7-6 15:16:12

你好，朋友们
我有一个lisp，可以绘制3dpolyline，然后从屏幕上的文本中选择z
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
（定义c:3dPol2（/a）
（命令“_3dpoly”）
（while（等式1（logand 1（getvar“cmdactive”）））
（如果
（setq a（获取点a“\n拾取点：”）
（setq a（getpoint“\n Pick start Point：”）
)
（setq osmd（getvar“osmode”））
（initget 1）
（setq pt11（entget（car（entsel“\n点击文本级别：”）））
（setq txtstr1（assoc 1 pt11））
（setq dlv1（atof（cdr txtstr1）））
（普林斯dlv1）
（setvar“osmode”0）
（如果
（命令（list（car a）（cadr a）dlv1））
（命令）

)
（setvar“osmode”osmd）
)

（普林斯）
)
;;;;;;;;;;;;;;;;;;
我的问题是绘制样条曲线，然后在绘图中的某个地方选取一个文本作为z值
任何帮助都将不胜感激
谢谢

Lee Mac · 发表于 2022-7-6 15:26:55

文本是否只包含一个数字？还是你的目标是文本的位置？

编辑：对不起，我应该对LISP进行更多分析-我看到z坐标包含在文本中。

Lee Mac · 发表于 2022-7-6 15:31:23

也许是这个？

copy


(defun c:3dPol2    (/ pt1 txt zval cmpt)
 (if (and (setq pt1 (getpoint "\nSpecify Start Point > "))
      (setq txt (car (entsel "\nPick Text > ")))
      (member (cdr (assoc 0 (entget txt))) '("TEXT" "MTEXT")))
   (progn
     (setq zval (cdr (assoc 1 (entget txt)))
       cmpt (strcat (rtos (car pt1)) "," (rtos (cadr pt1)) "," zval))
     (command "_3dpoly" cmpt)
     (while (> (getvar "cmdactive") 0)
   (if (and (setq pt1 (getpoint pt1 "\nConstruct Other Points > "))
        (setq txt (car (entsel "\nPick Text > ")))
            (member (cdr (assoc 0 (entget txt))) '("TEXT" "MTEXT")))
        (progn
             (setq zval (cdr (assoc 1 (entget txt)))
             cmpt (strcat (rtos (car pt1)) "," (rtos (cadr pt1)) "," zval))
          (command cmpt))
     (command))))
   (princ "\n<!> No Point/Text Selected <!> "))
 (princ))

motee-z · 发表于 2022-7-6 15:37:00

谢谢你的回复
我的问题类似于lisp，但对于样条曲线，而不是3dpolyline，问题文本是数字
谢谢

Lee Mac · 发表于 2022-7-6 15:40:56

啊，我明白了，我只是以为你想修改你的LISP-但我会看看我能做什么

Lee Mac · 发表于 2022-7-6 15:47:01

也许是这个？

copy


(defun c:3dPol2    (/ pt1 txt zval cmpt)
 (if (and (setq pt1 (getpoint "\nSpecify Start Point > "))
      (setq txt (car (entsel "\nPick Text > ")))
      (member (cdr (assoc 0 (entget txt))) '("TEXT" "MTEXT")))
   (progn
     (setvar "cmdecho" 0)
     (setq zval (cdr (assoc 1 (entget txt)))
       cmpt (strcat (rtos (car pt1)) "," (rtos (cadr pt1)) "," zval))
     (command "_3dpoly" cmpt)
     (while (> (getvar "cmdactive") 0)
   (if (and (setq pt1 (getpoint pt1 "\nConstruct Other Points > "))
        (setq txt (car (entsel "\nPick Text > ")))
        (member (cdr (assoc 0 (entget txt))) '("TEXT" "MTEXT")))
     (progn
       (setq zval (cdr (assoc 1 (entget txt)))
         cmpt (strcat (rtos (car pt1)) "," (rtos (cadr pt1)) "," zval))
       (command cmpt))
     (command)))
     (command "_.pedit" (entlast) "S" ""))
   (princ "\n<!> No Point/Text Selected <!> "))
 (setvar "cmdecho" 1)
 (princ))