[已解決]有關座標標示X座標要2倍的寫法

小弟上網爬文好久，找到這座標標示的LISP，以下字串是
 
;DE command will dimension the xy coords of the endpoint of any line
; or arc with leader, with text automatic and inserted as X 0.3426 , Y 6.4356
(defun c:de ()
    (setvar "cmdecho" 0)
    (command "osnap" "end")
    (setq p1 (getpoint "Select line near endpoint"))
    (setq p2 (getpoint p1 "Select cen of Leader"))
    (setq px (rtos (nth 0 p1 ) 2 4))
    (setq py (rtos (nth 1 p1 ) 2 4))
    (setq txt (strcat "x " px " , " "y " py))
    (command "dim1" "leader" p1 p2 "" txt)
    (setvar "cmdecho" 1)
)
 
在座標標示，假設標示是 X 10 Y 10   但是我希望 X10 標示可以幫我運算 乘2  ，  變成顯示 X20 Y10
請問要怎麼改，麻煩有哪位前輩可以指導一下，謝謝

■LSP下載： https://app.box.com/s/w35zlrj5okgog6mkfs92

請找到這行 (nth 0 p1 )

代碼:

(setq px (rtos (nth 0 p1 ) 2 4))

改為 (* (nth 0 p1 ) 2) 即可

代碼:

(setq px (rtos (* (nth 0 p1 ) 2) 2 4))

 

弄了好久，看來要學習的還很多，感謝蘋果爸了

chengejay 寫到:弄了好久，看來要學習的還很多，感謝蘋果爸了

別客氣～只要不是太難的我還可以幫忙！