[转贴]：lock the position of an Attribute.

eachy

2. 
   
3. ;; Begin code
   
4. ;; Written by Lee Ambrosius (lee_ambrosius@hyperpics.com)
   
5. ;;                 HyperPics LLC ([url]http://www.hyperpics.com[/url])
   
6. ;; Created on: 5/12/2005
   
7. ;; AutoCAD Release: 2006
   
8. ;; This program allows you to lock the position of an Attribute.
   
9. ;; Sets the Lock Position behavior
   
10. (defun c:SetAttLock ()
    
11.   (setLockPosition
    
12.     (car
    
13.       (entsel
    
14.         "\nSelect Attribute Definition to set Lock Position: "
    
15.       )
    
16.     )
    
17.     '("AcDbAttr" (1070 . 0) (1070 . 1))
    
18.   )
    
19. )
    
20. 
    
21. ;; Removes the Lock Position behavior
    
22. (defun c:RemoveAttLock ()
    
23.   (setLockPosition
    
24.     (car
    
25.       (entsel
    
26.         "\nSelect Attribute Definition to remove Lock Position: "
    
27.       )
    
28.     )
    
29.     '("AcDbAttr" (1070 . 0) (1070 . 0))
    
30.   )
    
31. )
    
32. 
    
33. ;; Example (setLockPosition entityName '("AcDbAttr" (1070 . 0) (1070 . 1))))
    
34. (defun setLockPosition (entityName lstValue / entData)
    
35.   (if (/= entityName nil)
    
36.     (progn
    
37.       (setq entData (entget entityName '("AcDbAttr")))
    
38. 
    
39.       (if (= (cdr (assoc 0 entData)) "ATTDEF")
    
40.         (progn
    
41.           (if (/= (assoc -3 entData) nil)
    
42.             (if        (= (nth 0 (cadr (assoc -3 entData))) "AcDbAttr")
    
43.               (setq entData (subst (cons -3 (list lstValue))
    
44.                                    (assoc -3 entData)
    
45.                                    entData
    
46.                             )
    
47.               )
    
48.               (setq entData (append entData (list (list -3 lstValue))))
    
49.             )
    
50.             (setq entData (append entData (list (list -3 lstValue))))
    
51.           )
    
52.           (entmod entData)
    
53.         )
    
54.       )
    
55.     )
    
56.   )
    
57.   (princ)
    
58. )
    
59. ;; End code

<br /> ;; Begin code<br /> ;; Written by Lee Ambrosius (lee_ambrosius@hyperpics.com)<br /> ;;                 HyperPics LLC ([url]http://www.hyperpics.com[/url])<br /> ;; Created on: 5/12/2005<br /> ;; AutoCAD Release: 2006<br /> ;; This program allows you to lock the position of an Attribute.<br /> ;; Sets the Lock Position behavior<br /> (defun c:SetAttLock ()<br />   (setLockPosition<br />     (car<br />       (entsel<br />         "\nSelect Attribute Definition to set Lock Position: "<br />       )<br />     )<br />     '("AcDbAttr" (1070 . 0) (1070 . 1))<br />   )<br /> )<br /> <br /> ;; Removes the Lock Position behavior<br /> (defun c:RemoveAttLock ()<br />   (setLockPosition<br />     (car<br />       (entsel<br />         "\nSelect Attribute Definition to remove Lock Position: "<br />       )<br />     )<br />     '("AcDbAttr" (1070 . 0) (1070 . 0))<br />   )<br /> )<br /> <br /> ;; Example (setLockPosition entityName '("AcDbAttr" (1070 . 0) (1070 . 1))))<br /> (defun setLockPosition (entityName lstValue / entData)<br />   (if (/= entityName nil)<br />     (progn<br />       (setq entData (entget entityName '("AcDbAttr")))<br /> <br />       (if (= (cdr (assoc 0 entData)) "ATTDEF")<br />         (progn<br />           (if (/= (assoc -3 entData) nil)<br />             (if        (= (nth 0 (cadr (assoc -3 entData))) "AcDbAttr")<br />               (setq entData (subst (cons -3 (list lstValue))<br />                                    (assoc -3 entData)<br />                                    entData<br />                             )<br />               )<br />               (setq entData (append entData (list (list -3 lstValue))))<br />             )<br />             (setq entData (append entData (list (list -3 lstValue))))<br />           )<br />           (entmod entData)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> ;; End code

aeo

Adding the ability to select True Colors to your LISP programs

Adding the ability to select True Colors to your LISP programs
If you take a look at the help files for both AutoCAD 2004 and 2005 you find the old function ACAD_COLORDLG listed for AutoLISP. However, the ACAD_COLORDLG function doesn't support True Colors in AutoCAD though. So was it over looked, is it missing... really it is just undocumented. The function you need in your code if you want to all the user to select True Colors is ACAD_TRUECOLORDLG. Since the function is undocumented it took a little while to exactly figure out the syntax for this function a year ago. Below is what I know of the function itself and its companion command to select True Colors at the command line.

Dialog Box
Syntax: (acad_truecolordlg color [allowbylayer])

Example:
(acad_truecolordlg 137 nil)
((62 . 137))



Alternative to use True color:
(acad_truecolordlg (cons 420 2594))

Alternative to use Color Book color:
(acad_truecolordlg (cons 430 "PANTONE(R) a & i-cotton$PANTONE 11-4800TC"))


Command Line
Syntax: (acad_truecolorcli color [allowbylayer] [alternatePrompt])

Example:
(acad_truecolorcli 137)
New Color [Truecolor/COlorbook] <137>:
((62 . 137))

Other return values:
Returns ACI as: ((62 . 144))

Returns True Color as: ((62 . 137) (420 . 2594437))

Returns Color Book Color as:
((62 . 254) (420 . 15789027) (430 . "PANTONE(R) a & i-cotton$PANTONE 11-4800 TC"))

Sincerely,
  Lee Ambrosius

fsxm

对我来说e文就是天书!
只书只应天上有！老大们好好研究
研究好了再告诉小弟好了!